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Volume 1 — HCJ At A Glance 


We'd like to welcome our many thousands of new 
readers who are joining us as a result of Home Computer 
Magazine ceasing publication. Undoubtedly, some of you 
are disappointed that your favorite magazine is no longer 
available. | 

But lest you stay disappointed for long, please examine 
this Volume of Home Computing Journal. We are 
pleased that we have been able to offer you many of the 
best features of HCM in the Journal. And because HCI is 
a quarterly, subscriber-based package consisting of a 
state-of-the-art laser-printed journal with companion 
diskette, we're able to go far beyond what a newsstand 
magazine can offer—even one as excellent as HCM 
was... | 

Artificial intelligence, database management, 
high-powered programming aids, realistic simulations, 
and specialized software for personal investing, 
task-specific report writing, computer-assisted design, 
desktop publishing, personal communications, plus 
entertaining math and logic excursions are just some of 
the projects already on our planning board. 

With all of this exciting software, learning 
opportunity, and new worlds of discovery on the horizon, 
we hope that you'll plan to stay with us for a long time 
to come. And, if you like the way we've delivered this 
first quarterly package of bits 'n' bytes, you can do us a 
big favor: Because we're not a newsstand magazine, we 
don't have any cost-effective way of reaching the many 
thousands of computer users who regularly purchase 
computer magazines each month from their favorite 
magazine vendors. So, you can do us—and them—a 
tremendous service by putting out the word that what 
HCM did best—and a whole lot more to boot—is alive 
and well...and that HC Journal invites one and all to 
come join us. | | 
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Welcome to Home Computing 
Journal's I/O section. Here, you get 
a chance to provide feedback on our 
articles and programs, and you pick 
up tips to solve those software and 
hardware problems that invariably 
pop up in the course of home 
computing. We encourage readers 
who have questions, comments, or 
interesting computing ideas to send 
letters to: 


Home Computing Journal 
Attn: Letters to the Editor 
P.O. Box 70248 

Eugene, OR 97401 


Monitor Disk Drive Errors 
Dear Sir: 

| had an experience this weekend that | 
thought might be of interest to other users of 
the Commodore 1541 disk drive. 

My son's Winnie the Pooh in the Hundred 
Acre Woods program was having difficulty 
loading some of the screen files, and would 
sometimes provide an error message 
indicating a problem with the disk drive. 

A little investigation showed that if the disk 
drive was sitting to the left of my TV (or my 
Commodore 1701 monitor), there was trouble 
accessing the drive. When the drive was 
sitting to the right, there was little or no 
trouble. 

In conclusion, setting the disk drive to the 
left of a TV or monitor can produce symptoms 
which mimic alignment problems. Readers 
might want to check for this type of 
interference before going to the trouble of 
having a drive realigned. 

Jack Ryan 

El Dorado, AR 


The problem that you are encountering, 
Jack, is not directly related to the monitor's 
left side, but to the monitor itself. You see, 
computer monitors, television sets, and even 
audio speakers create a magnetic field when in 
use. Because the data on a disk is stored 
magnetically, this field can interfere with your 
disk drive's operation. It is always advisable to 
keep your disk drive and your disks away from 
your television or monitor. This applies to all 
computers. The fact that your 1541 disk drive 
prefers the right side merely indicates that 
your monitor has a stronger magnetic field on 
the left side—you may yet experience 
difficulties if you leave the drive close to the 
monitor. 


Tl Monitor Cable Info 
Dear Sir: 

| recently purchased a TV/monitor that has 
extra video/audio plugs for computer hook-up. 
The problem is that the T|-99/4A can only be 
hooked up to the antenna terminals of the set. 
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ls there any way to rewire the 5-pin modulator 
cable to the video/audio RCA plugs needed on 
the set? I'm sure there are a lot more people 
like myself with this problem and | feel that this 
would be another plus point for the 99/4A. 
Tom Hamerly 
Fremont, CA 


What you are looking for, Tom, is a video 
monitor cable. Do not try to "rewire" your 
modulator cable to match; there are several 
readily available monitor cables that will do the 
trick. You need a cable with a 5-pin DIN plug 
on one end, and two RCA plugs on the other 
(one for audio and one for video). Look at mail 
order advertisements or your local electronics 
or computer store. They should have just the 
thing for less than ten dollars. 


PCjr Sound Off 
Dear Sir: : : 

| have noticed that many programs which | 
run from HCM diskettes have caused the 
sound on my PCjr to shut off. The only 
command which allows the sound to restore 


without rebooting is SOUND OFF. Additionally, 


some programs cause the function keys to 
turn off, such as F2/run, F3/load, etc. 

Is there any way to correct this problem and 
is it common among others with Juniors? 

Gregory O. Davis 

Livonia, Ml 


The "problem" you describe with the sound 
shutting off is because you don't have an 
external speaker attached to your PCjr, 
Gregory. If you use an RF modulator 
connected to a television, the sound will come 
out of the TV's speaker. If you are using a 
video monitor, there is another way to hear the 
sound from these programs. Just hook up an 
amplifier and speaker to the audio output of 
the PCjr—it is an RCA jack on the back left of 
the unit labeled with an "A." You can use the 
AUxXiliary input of your stereo, or some other 
suitable amplification system. The reason that 
some of the function keys turn off is that they 
are reassigned to other functions by the 
program. After you have used a program, 
there is no need to totally re-boot. Just type 
SYSTEM to return to DOS, then type BASIC, 
and you are returned to a freshly initialized 
BASIC system with all the usual function key 
assignments in place. 


Hi-Res Screen Dump 
Dear Sir: 

| have an Apple lic, and wonder if HCM's 
Screen Dump for Apple computers (V5N5) will 
work for the hi-res screen. The three 
programs | added it to all use either HGR or 
HGR2 for the screen display (two pie charts 
and a bar graph program). All | get printed out 
are the text commands located below the HGR 
image or the text commands that were on the 
TEXT window before the machine went to 
HGR2. Is there any way | can get the 


_ HGR/HGR2 screens “dumped” to the printer? | 
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hope so, as it would make these programs 
much more useful to me than they now are. 
| have been using the Run-Day-View 


program (V5N4) with my work schedule. Is 


there some way | could get it to not print the 
spaces between the hours, so as to get at 
least one more hour of schedule on the sheet? 
David E. Paul 
Perryville, KY 


David, this screen dump program prints only 
Apple's text screen. It cannot be easily 
modified to print the high-resolution (hi-res) 
screen. Hi-res screen dumps are fairly 
printer-specific. Some printer interfaces, 
notably the Grappler from Orange Micro; 
include several short programs that allow for 
screen dumps of hi-res graphics for a 2 number 
of different printers. 

To change Run-Day-View to add even an 
extra half-hour would be a major modification. 
You could add space on the printout to write 
several more time entries by deleting line 2750 
and adding this line: 

2765 FOR IT =1 TO 9 : 

SsPc(32); "!" : NEXT 


PRINT 


Configuration Confusion 
Dear Sir: 

In December, 1984, | purchased an IBM 
PCjr, enhanced model. Since that time | have 
expanded it to include the following hardware: 
Racore expansion unit with second disk drive, 
an extended memory to 512K RAM, two IBM 
joysticks, Keytronics 5149 numeric keypad, 
Epson RX80/FT+ printer, and ee PCjr internal 
modem. 

With the Racore unit (elmaitae to the 
Quadram you tested), because of software 
patches it is impossible to run IBM PCjr 
BASIC (cartridge) with the extended memory, 
and the TERM (terminal emulation program) 
with the IBM PCjr internal modem. Also, as 
your review of the Quadram unit pointed out, it 
is a real pain to discover what combinations of 
software work with this system. The problem 
lies in the fact that IBM PCjr BASIC (cartridge) 
won't work with the extended memory—to 


Special "Hackers Challenge" 
For Atari 800 Users 


The screen access used in the Atari 
version of WordWeave bypasses normal 
screen I/O by making the screen directly 
access the contents of the variable A$. In 
‘addition, the disk routine accesses the 
thus 
speeding up disk I/O. These techniques 
work great on the Atari 800XL and Atari 
130XE. The scheme, however, does not 
function properly on older Atari 800s. The 
first Atari programmer who sends us the 
modifications to our program, allowing it to 
work on the model 800, will receive a free 
Volume of Home Computing Journal. We'll 
then share the fix with other'800 users. 


disk directly, bypassing DOS, 
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overcome this limitation, you must have the 
original PC-DOS to run IBM PCjr BASIC 
(cartridge) and the IBM PCjr internal modem, 
limiting you to 128K RAM. You must use a 
modified DOS disk to run programs that will 
use the extended memory! This requires 
several different modified DOS disks to run 
programs—confusing the user. 

John Battista 

Clearwater, FL 


That's right, John, the PCjr applications you 
mention cannot access the Racore memory. 
In fact neither Cartridge BASIC on the PCjr, 
nor BASICA on the IBM PC can access more 
than 64K of RAM. The Microsoft Booster for 
the PCjr (see review in HCM V5N5) supports a 
speeded-up version of BASIC that moves 
Cartridge BASIC into the faster RAM in the 
‘Booster—but it still can only acess 64K. You 
are also quite correct in saying that you need 
an original DOS 2.1 disk. This would be a disk 
that does not have a CONFIG.SYS file that 
reconfigures how the PCjr accesses its 
memory. One other note: World Class 
Software has recently developed a 
menu-driven “Configurator” package. This 
program is designed to lead even an 
inexperienced user through the steps of 
configuring the PCjr Racore memory 
expansion, and to easily “tailor make" 
configuration disks for different applications. 
The package is available for $89.95 from 
World Class Software, P.O. Box 70288, 
Eugene, OR 97401. 


Tl Card-Trix Tip 
Dear Sir: : 
Card-Trix from HCM V5NS5 is dynamite stuff. 
I'm already using it heavily. We made the 
following changes which you may wish to 
incorporate or pass along: tas 
Since 3x5 cards can be purchased in 
computer. setups (continuous and 
tractor-holed), the vertical ! defining the 
borders of the cards aren't needed. . 
We threw a full print statement into 920. 
s: PRINT#1: "!";TAB(51);"t" 
and scaled 930 down to 930 cosuB 950 
and left 950 with 950 RETURN ; 
(I'm sure we could have eliminated 930 and 
950, but we didn't have time to play with it.) 
We resaved the modified program under a 
new name, so that if we use the computer 
3x5's we can use the modified program, but if 
we use the regular fan-fold 8-1/2 x 11 paper we 
have your original program which draws top 
and bottom lines for cutting. 
Alan Weber . 
Marlboro, NJ 


We're glad to hear that you are putting 
Card-Trix to good use, Alan. It's true that the 
modifications you provide effectively remove 
the exclamation points defining a card's 
vertical borders. (And yes, you could have 
deleted lines 930 and 950 for the same 
results.) Of course, to make this alteration 


useful, one would ideally have an adequate 
supply of the fanfold 3 X 5 cards that you 
mention. These cards evidently do exist, but 
are generally hard to find (and expensive) in 
many areas. 


C-64 LPRINT Wanted 
Dear Sir: 

My questions concern HCM's screen 
dumping program for a C-64 (V5N4). As you 
can see from the enclosed printout, whatever 
is dumped from the screen is printed on only 
part of the paper. Is there a way to get a 
printout which uses the entire sheet? Also, is 
there a way to place a print command directly 
into a program (similar to the LPRINT 
command used with IBM PC's)? 

Jonathan C. Jones 

Lexington, KY _ 


Jonathan, to answer your first question, it 
would be difficult to convert the screen dump 
program to take up more room on a sheet of 
paper. The main problem is that the C-64's 
screen is simply not that large! A sheet of 
standard printer paper is 80 characters 
across, while the Commodore 64's screen is 
only 40. As for your second question, there is 
an easy solution. Use the following code in 
place of LPRINT: 

OPEN 4,4:CMD 4: , 

PRINT "Anything you want to 

print” 

The OPEN command sets up the printer as an 
output device. The CMD 4 statement tells the 
computer to send all output to device number 
4 (the printer). Now, all PRINT statements will 
go to the printer—just like an LPRINT. To 
re-direct output to the screen, use this code: 

PRINT#4:CLOSEA 
This turns off the printer and cancels the CMD 
statement. | 


MX-80 Parallel Operation 
Dear Sir: 

My computer set-up consists of a TI-99/4A, 
peripheral expansion box with disk drive, 
memory expansion and RS232 interface, a T| 
(MX-80 modified) printer, and a second 
external disk drive. The system works 
extremely well and | am very happy with its 
performance. However, recently | purchased 
a parallel cable to enable me to use the printer 
from the parallel port on the RS232 card. 

After hooking up the parallel cable, my 
troubles started. The system-works fine when 
using either of the two serial ports, but during 
use of the parallel port the printer would go out 
of control and print gibberish or uncontrolled 
form indexes—many times with one line per 
page. Turning the printer and/or computer off 
would not reset the system. By turning the 
system off and leaving it for several hours, it 
might start working all right, but would soon go 
into the uncontrolled mode again. 

| called a service representative for Epson 
printers and after describing the problem, was 
told that | would have to disconnect the serial 


board inside the printer in order to use the 
parallel port. | feel that there must be an easier 
way to solve the problem. Have you ever run 
across this problem before and is there an 
easier way to solve it? | would appreciate any 
help that you can provide me. 

One other question: | am having a hard time 
trying to find an easy way to print columns of 
figures using the printer and line up the 
decimal points. Does someone have a 
suggestion? 

Robert Schertz 

Bettendorf, IA 


Robert, we are surprised that you can get 
the printer to work at all when connected the 
way you describe. As long as the serial card is 
in the printer, we have found that the parallel 
port does not function properly on the MxX-80. 
The answer to your problem is just as Epson 
suggests—remove the serial card while using 
your printer as a parallel device. This is not 
very hard. First, unplug the unit and remove 
the paper and the knob that turns the platen (it 
should pull off easily). Then take out the 
screws on the bottom and remove the 
case—be careful not to damage the wiring that 
connects the LED indicators and selector 
switches on the top of the unit. Finally, 
remove the four screws that hold the serial 
card in place, and gently unplug it by pulling it 
straight up. When reassembled (without the 
serial card) your parallel printer should work 
fine. : 

As for printing formatted numbers, the 
easiest way is to use the PRINT USING and 
IMAGE commands available in Tl Extended 
BASIC (see your Extended BASIC reference 
manual for details). If, however, you don't 
have access to Extended BASIC, here is a 
seven line BASIC subroutine that prints 
decimal numbers into columns with their 
decimal places aligned vertically. This routine 
works with any number of 12 digits or less. To 
use it, you must first open your printer, or 
whatever output device you choose, as file #1. 
Then set the variable N to the number to be 
printed and GOSUB 1000. 


1000 NUMS$=STR$ (N) 
1010 DP = POS(NUMS,".",1) 
1020 IF DP>O THEN 1050 
1030 DP=LEN (NUMS) +1 
1040 NUMS=NUMS«"." 
1050 PRINT#1:TAB(13-DP) ;NUMS$ 
- 1060 RETURN 


Add A Third Disk Drive? 
Dear Sir: 

| am delighted with HCM's article, "Adding a 
Second Drive to the PCjr" (V4V4). The second 
drive | added per your article works like a 
champ. | understand, though, that the 
hardware modification already has the extra 
logic on board to handle four drives, and I'm 
considering adding a third drive to my 
configuration. Can you tell me what changes 
are needed to the software modification in the 
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article? The software modification as written 
only recognizes drives A and B. 

Alfred |. Fier 

Gaithersburg, MD 


There are additional hardware modifications 
(specifically the addition of more logic chips) 
necessary for the PCjr to support 3 or 4 
drives. If there's enough interest, Alfred, we'll 
develop a Tech Note for this enhancement. 
The software fix allowing the PCjr to access 
the properly interfaced hardware is an easier 
matter: The main purpose of the software is to 
alter the equipment status byte which is set by 
the IBM PCjr's Basic Input/Output System 
(BIOS) upon power up. The two high-order bits 
of location 410 (HEX) tell DOS how many disk 
drives are active. To change the number of 
drives you simply alter the MODBOOT.BAT file 
(explained in HCM V4N3): Change the OR BY 
[410],40 to OR BY [410],80 for 3 drives and to 
OR BY [410],CO for 4 drives. 


Underlining With Epson 
Dear Sir: 

| use AppleWorks with an Apple llc. | am 
extremely satisfied with it, and | use it for all of 
my word processing. However, | have an 
annoying problem with AppleWorks. | am 
unable to use the underline function. 

My printer is a TI-99/4A Impact Printer 
(Epson MX-80). When | use the printer with 
the Tl computer, | am able to underline 
perfectly. The procedure is to use an "&" 
before any material that is to be underlined. 
The printer manual for the Epson does not give 
any codes for underlining, so | am not able to 
use Option 2 on the “underining" menu. 

You are my last hope. | have sent Apple a 
letter, but they have not answered. Any help 
that you can give me would greatly 


¥ 


We've experimented with the same 
configuration you describe, Robert, and have 
had no success with underlining—although 
the ImageWriter works just fine. Using the 
ordinary underline codes available from the 
Open-Apple-O option does add a line feed 
before underlining takes place. This adds a 
line feed between the text and the underline on 
the MX-80, but works just great on an 
ImageWriter. We've contacted Apple 
Technical support, but they were not able to 
solve the problem. Because newer Epson 
printers (such as the FX-85) support control 
codes for printing underlines, you can use 
option 2 of the underline menu with them. 


Productivity Problem Solved 
Dear Sir: 

| believe that | solved HCM's Snap-Calc 
challenge (V5N6). My spreadsheet (enclosed) 
is divided into 4 sections of consecutive 
columns: Colums 1-4 pertain to college A: 
Columns 5-8 pertain to College B; and the final 
2 sections combined (Columns 9-13) 
represent two years at a community college, 
followed by three years at College A (taking 
figures for years 2, 3, and 4). If you analyze 
the logic of the spreadsheet from the 
standpoint of the formulas used in Rows 5, 6, 
11, 12, 13, 17, and 18 (see the enclosed logic 
printout), Row 5 displays the total expendable 
income of the family by adding the first four 
rows of Column 1. | used the LAG function of 
Snap-Calc to allow for a 10 percent rise in 
overall yearly expendable income. This 
function takes the value of the previous 
column in the designated row. In this case, 
LAG 5 accesses the values of Row 5 to use in 
Row 6. (Because there is no column previous 
to Column 1, the first value in Row 6, Column 
1 is meaningless.) The next value (Column 2) 
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original number accessed. This sequence 
carries through the entire sixth row. 

Row 11 is the sum of Rows 7 through 10 in 
Column 1, designating total fundamental 
expenses. Row 12 allows for an overall yearly 
increase in expenses of 5 percent, using logic 
similar to that used in Row 6. Row 13 then 
finds the difference between expenses and 
expendable income. lf the difference is a 
negative number, the expense of college is 
driving the family budget into the red, requiring 
other sources of income to balance the deficit. 
Rows 14 through 16 are examples of some of 
the more common sources of financial aid. 
Row 17 displays the sum total financial aid, 
while Row 18 simply adds this value to any 
deficits in Row 13. If the values of Row 18 are 
still negative, the student may have to 
become a member of the working class for a 
while. 

Note that the values in Rows 6 and 12 in 
Columns 1, 5, 9, and 11 are meaningless 
values generated by the LAG functions of 
these rows. 

William Kincaid 

San Francisco, CA 


Well done, William! We couldn't have done it 
better ourselves. [Reader Note: William's 
spreadsheet and logic file are reproduced 
below.] 


Atari Sound-On-Sound Echo 
Dear Sir: 

| am an Atari 800 owner and | find that 
HCM's clever Sound-On-Sound program 
(V5N5) will not run on my Atari 800. 

The published version uses an ATASCII 
conversion table that is not in the same 
location in ROM on the 800, so | have 
included my own fix for this program that 


appreciated. in Row 6 is the result of accessing the number POKEs the ATASCII conversion table into 
Robert J. Field in Row 5, Column 1, multiplying that number by | RAM. In the keyboard code to ATASCII code 
Skokie, IL 10 percent, and adding the result to the conversion table that is POKEd into page six 
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SPREAD SHEET 


COLLEGE ANSWER 


CONTINUED ON PAGE 32 


LOGIC FILE 
LOGIC NAME IS CALCLOG1. 
TOTAL COLUMN IS 0 


LAST COLUMN IS 13 
11S EX/INC/FA 

2 IS WX/INC/FA 

31S EX/INC/ST 

41S OTHER 

5 IS TOT/EX/INC 
§=1+2+3+4 

6 IS NEXTYEAR 

6 = (.1) “LAG 5+LAG 5 
7 IS TUITION 

8 IS FOODHOUS 

9 IS BOOK/SUPL 

10 IS MISC/PERS 

11 1S TOTALV/AID 

12 1S NEXTYEAR 

12 = (.05) * LAG 11+LAG 11 
13 IS VARIANCE1 

13 =5-11 

14 IS SCHSHIS 

15 1S GRANTS 

16 IS LOANS/STU 

17 |S TOT/AID 

17= 14+ 15+16 

18 IS VARIANCE2 
18 = 13+17 


Row | Row Name 1 2 3 4 5 6 7 8 9 10 11 12 13 


| EX/INC /FA 
| EX/INC /MO 
| EX/INC/ST 
| OTHER 

| TOT /EX/INC 
| NEXT YEAR 

| TUITION 

| FOOD / HOUS 
| BOOK /SUPL 
| MISC /PERS 
| TOTAL/ EXP 
| NEXT YEAR 

| VARIANCE 1 
| SCHSHIPS 

| GRANTS 

| LOANS/ STU 
| TOTAL/AID 

| VARIANCE 2 


1500.00 0.00 0.00 0.00 1500.00 
1500.00 0.00 0.00 0.00. 1500.00 
500.00 0.00 0.00 0.00 500.00 
500.00 4400.00 4840.00 5324.00 500.00 
4000.00 4400.00 4840.00 5324.00 4000.00 
4400.00 4840.00 5324.00 5856.40 
0.00 0.00 0.00 4057.40 
0.00 0.00 0.00 2340.00 

0.00 0.00 0.00 300.00 0.00 0.00 300.00 
: 4011.53 4212.11 4422.72 990.00 8071.77 8475.36 8899.13 800.00 2198.70 
3820.50 4011.53 4212.11 4422.72 7687.40 8071.77 8475.36 8899.13 2094.00 2198.70 
0.05 4011.53 4212.11 4422.72 4643.86 8071.77 8475.36 8899.13 9344.09 2198.70 
179.50 388.47 627.89 901.28 -3687.40 -3671.77 -3635.36 -3575.13 1906.00 2201.30 
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 
0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 0.00 
179.50 388.47 627.89 901.28 -3687.40 -3671.77 -3635.36 -3575.13 1906.00 2201.30 627.89 


0.00 
0.00 


0.00 


0.00 
0.00 0.00 
0.00 0.00 


0.00 1500.00 
1500.00 0.00 
500.00 0.00 
4840.00 5324.00 500.00 4400.00 
4840.00 5324.00 4000.00 4400.00 
4840.00 5324.00 5856.40 

0.00 0.00 594.00 


0.00 0.00 400.00 


0.00 0.00 0.00 
0.00 0.00 0.00 
0.00 0.00 0.00 

4840.00 5324.00 5856.40 

4840.00 5324.00 5856.40 

5324.00 5856.40 
0.00 0.00 
0.00 0.00 
0.00 0.00 

4422.72 4643.86 

4422.72 4643.86 

4422.72 4643.86 

901.28 1212.54 
0.00 0.00 
0.00 0.00 
0.00 0.00 
0.00 0.00 

901.28 1212.54 


0.00 


1 
2 
3 
4 
5 
6 
7 
8 
9 
10 


4212.11 
4212.11 
2308.64 
627.89 
0.00 
0.00 


College A (4 Years) College B (4 Years) Community College College A (Last Three Years To 


(2 Years) Supplement Community College.) 
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Imagine— 
Your own experimental laboratory 
where you can produce 
| the one creature 
that fits your grand design... 


eepers, creepers— 
where'd you get those peepers? 
_ Jeepers, creepers—where'd you get those eyes? 


Has anyone ever said that you have “your mother's 
eyes"—or, perhaps, "your father's nose?" What do they mean 
by that? Obviously, your parents can't just hand you an eye or 


a nose; but most of us probably have a pretty vague idea about 


how one generation passes on these recognizable traits to its 
offspring. We may know that it has something to do with 
genes. Some of us may even have enough Biology 101 under 
our belts to know how and what genes actually do. But how 


-many can unravel the genetic puzzle enough to predict how 


specific genes lead to specific traits? Now's your chance with 
Designer Genes. | 


Working To A Goal 


In this "edutainment" program, you direct a series of genetic 


laboratory experiments, pairing off organisms that you have 
selected especially for their specific traits. As the head of this 
laboratory, you must work to attain a goal—breeding and 


isolating an organism with a definite genetic makeup. For 
your first assignment, you receive a $100,000 research grant. 
You can also consult a special Bio-Computer to help you 
predict or analyze the results of your selective breeding 


- experiments. Your work in the laboratory begins with two 
organisms: the first generation of parents. Through your 


understanding of genetics (dominant and recessive genes), you 
selectively breed these creatures and successive generations 


until you isolate the desired specimen. 


Breaking The Code 

Within the nucleus of every living cell are the genes that 
determine every aspect not only of that cell, but of the entire 
organism, as well. In other words, each cell in the lifeform 
contains the same genetic code as every other cell. However, 


specific genes or combinations of genes in that code control 
‘the appearance of specific traits. This is true of every living 


organism, be it as simple as a single-celled amoeba, or as 
complex as the human body. When two organisms of the same 
species mate to form offspring, their respective sets of genetic 
code recombine into a new code. This process takes place in 


the interaction between the "germ cells" (egg, sperm, spore, 


etc.) of each organism. 
Genes come in pairs (see Chart 1). Each pair either 


determines a single trait (a physical feature) in the lifeform or 
: a 


works in conjunction with other gene pairs to determine a 
single trait. In a simple lifeform, such as a fruit fly, a single 
gene pair by itself can completely determine a trait (the color 
of the fly's eyes, for example). In more complex organisms, it 
may take hundreds or even thousands of genes to completely 
describe a trait (such as a person's height). 

To keep the program simple, we have limited the 
complexity of the genetic “mixture” in your experimental 
subjects. On the first level of play, we use a single gene pair 
to fully describe a physical trait. In the second level, we use 
two gene pairs, each gene pair describing a separate physical 
trait. In the third and final level of play, two gene pairs work 
together in describing a single physical trait. : 


A Matter Of Priority 

Each of the two genes in a pair can be either dominant, or 
recessive—that is, one can have priority over the other. 
Unless a recessive gene has a recessive partner, the 
characteristic it represents remains "invisible," and only the 
dominant characteristic shows up. When two organisms mate, 
each of their germ cells contains only one half of any given 
gene pair. So, as these separated genes recombine in a 
fertilized ovum to form new pairs, characteristics not visible 
in the parents may "surface" in the offspring. 

With a single gene pair controlling a single trait, there are 
two possible outcomes for that trait—one that exhibits the 
dominant characteristic, and one the recessive. (In nature, a 
combination of dominant and recessive genes in a pair can 
sometimes work together to produce a third characteristic. This 
program keeps things simple by eliminating this possibility.) 


_Chart 1. 


The ‘A’ 
Gene Pair #1 (a) 


The ‘'B’ Gene (B) 
Gene Pair #2 © 
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combinations. 


Chart 2 illustrates some possible "mixtures" of dominant 
and recessive genes in a gene pair, and gives the outcome of 
that mixture. This chart is similar to the grid you will work 
with on your lab's Bio-Computer. Here, the capital A 
represents the dominant gene, while the lower case a 
represents the recessive gene. The columns marked 1 and 2 
contain the genes from one organism (in this case, there is 


one dominant and one recessive gene). The rows labeled 3 and 


4 contain the genes from the second organism (it takes two to 
tango). This combination of genes in both parents gives us 
all possible outcomes in the grid. Each cell of the grid 
represents a possible offspring's genetic makeup. 

With the example in Chart 2, an offspring from the two 
parents has a 25% (one in four) chance of both its genes 
being recessive (double recessive); and the trait associated 
with the dominant gene shows up 75% of the time. Try an 


experiment: Change the first parent—columns 1 and 2—such . 


that both genes are recessive. (Change column 1 to a.) Now 
update the cells of the grid , 
changing one of the capital A's 

to an a in each row of column 

1. The ratios of the traits for 
the offspring now change to 
50% dominant and 50% 
recessive. : 
To simplify the process of 
calculating these relationships, 
the program provides a "Bio-Computer" that simulates the grid 
we have been studying. On Level 1, with only one gene pair, 
we use only the top two rows and the left two columns (a 2x2 
grid with 4 total cells—as in Chart 2). In Levels 2 and 3, 
there are two gene pairs at play; so we use all of the grid cells 
(in a 4x4 grid with 16 cells—see Chart 3). 


Playing The Game 
hen the program first runs, the computer asks if you would 

like to load a previously saved game. If you have saved a 
game to disk or tape and wish to continue where you left off, 
enter Y. Follow the system prompts for your machine to enter 
the file and/or device name of the data file you want to load. 

If you do not load a previously saved game, you will be 
asked to select some options and then enter some parameters 
to play a new game. The first option is for the level of 
difficulty. We'll describe the three levels in more detail later. 
Depending on the level selected, you will be asked to enter the 
descriptions for a number of dominant and recessive traits. For 
example, you may designate "blue eyes" as dominant, and 
“green eyes” as recessive. You will then have the option to let 
the computer randomly generate both the assignment and the 
original parents, or you can elect to create. your own 
assignment. If you create your own, you must choose to either 
let the computer randomly generate the genetic makeup of the 
Original parents, or set up the parents yourself. With your own 
setup, you must enter a mixture of dominant and recessive 
traits. Trying to "load" the game with an automatic solution 
will merely bring you back to the previous option. 

After you enter the trait descriptions and set up the options 
as explained above, the computer displays the main game 
screen. The top line of the display shows the game title. The 
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Photo 1. The main game 
screen features current and 
past-generation windows at 
the top, followed by a 
menu of options, and a 
description of the genetic 


Photo 2. Use the 
Bio-Computer to predict the 
genetic makeup and ratios 
resulting from any 
hypothetical cross. Simply 
enter the makeup of the two 
_ parents, and the program 
projects all possible gene 
combinations of the 
offspring on the 
Bio-Computer grid. 


aa 


"Within the nucleus of every living 
cell are the genes that determine every 
aspect not only of that cell, 
but of the entire organism as well." 
<<a pesucecusnganmenesmtens cases cpansnseesminne 


generation by one. The main game 


second line contains the assignment (the problem which you 
must solve), which consists of a set of genes. You must cross 
the “critters” (we will refer to a single resultant organism from 
the sample we are breeding as a critter), until you are sure you 


have one with the proper genetic code—one that is equivalent 


to the code in the assignment. Note that the order in which 
the genes are displayed is not relevant (i.e. Aa=aA and 
Bb=bB). Also shown on this main screen is your current 
operating budget reserve, starting with $100,000. 


The Bio-Computer 
The Bio-Computer is like a genetic calculator (see Chart 3). 
You enter the genetic code for two parent critters, and the 
computer will fill in the grid with all of the possible resultant 
combinations. It even color codes each cell in the grid, 
according to the physical description of the traits. If you 
Select the Bio-Computer option from the main game screen, 
the computer displays a 16-cell grid just like the one in Chart 
| 3. (Chart 3 is much more 
complex than Chart 2 because 
of the addition of a second gene 
pair—the 'B' gene.) You can 
also select the Bio-Computer by 
pressing Option E after 
crossing two critters (see the 
section on Breeding). When you 
finish using the Bio-Computer, 
simply press [ENTER] or [RETURN] at the prompt for the 


parents genetic code, and you will return to the previous 


screen. 


The Parents : 

In the upper half of the main game screen, you'll find 
windows that display the parents from two generations. The 
parents displayed in the top row of windows can be from a 
previous, but not the current, generation. The 
current-generation parents appear in the second row of 
windows. 

In the two windows on the right side of the screen, the 
number following the letter F indicates the generation of the 
two parents on that row. We use the letter F here to indicate 


"generation" because it is already a common convention in 


biology textbooks. 

You can advance to the next generation with the Cross 
option from the main game screen menu. This option breeds 
the two parents from the current generation. Before this takes 
place, you will also have to specify how many "samples" you 
want to result from this union (as detailed below under 
"Crossing Critters"). 

At the end of the "gestation period," a breakdown of your 
results will appear on the screen—in terms of how many 
critters display what characteristics. You then have the option 
of "keeping" representative samples to become your next 
generation of parents. If you keep two of the critters created 
by the cross, then those critters become the current generation 
parents on the control screen, advancing the current 
screen now shows a 
reduction in your operating budget due to the deduction of the 
breeding cost. 


You can back up a generation if you discover that you are 
following a hopeless strain of critters (one that has lost a 
gene needed to solve the problem), or if you simply need to 
return to a generation that you now know contains the critter 
with the proper genetic code to complete the assignment. To 
back up a generation, simply select the Back Generation 
option from the main game screen menu. The program asks if 
you are sure you want to do this, because this option 
eliminates the current parents (they will no longer exist), 
making the previous generation the current generation. If you 


are sure, enter Y. - 


To place any of the previous generations in the top window, | 


select the Set Generation Top Window option. After selecting 


this option, the computer asks you to enter a generation. If 
the generation is legal (exists), then the main control screen 


reappears with the top windows showing the generation you 
selected. 
The top window indicates which. past-generation parents to 


"use during a Back Cross—a cross performed with one 


current-generation parent and one past-generation parent. (If 
you choose to keep any offspring resulting from the back 


"Because the genes from each 
parent are selected at random, 
the same two parents can generate 
many different offspring." 


cross, the offspring replaces the parents in the current-parents 
window, but it does not advance the generation.) You could 
also use the top window to simply scan the generations to 
refresh your memory on what steps were taken to get where 
you are. The top window may never contain the current 
generation parents. This is to prevent back crossing a critter 
with itself (a difficult task at best). 


Crossing Critters = | 

Designer Genes allows you to cross successive generations 
of critters. In addition, you can cross previous generations 
with current generations. To produce a critter with the proper 
genetic code, you need to breed parents to produce offspring. 


You can accomplish this by using either the Cross or Back | 


Cross options from the main game screen menu. 


After you select the Cross or Back Cross option, the bottom — 


half of the screen will clear. You then receive a prompt to 
enter the number of samples (critters) you would like—the 
minimum number you can use is 10, maximum is 9999. This 
is important for determining the accuracy of your experiment. 
As with any statistical survey, the higher the number of 


samples, the greater the accuracy. If the selection of offspring | 


were not random, then the offspring produced by the example 
in Chart 2 would yield 75% dominant and 25% recessive. With 
the randomness of nature (and your computer), however, you 
may actually get 68% dominant and 32% recessive. The 
random sample is closer to a 2 to 1 ratio than the ratio of 3 
to 1 predicted by our grid. With larger samples, this margin 
for error is reduced, yielding more accurate results. 


Reading Ratios | | | 

When making decisions about the outcome of crossing two 
parents, you need many samples from which you can calculate 
ratios.. Because the genes from each parent are selected at 
random, the same two parents can generate many different 
offspring. You can use the ratio of the total number of critters 
bred to the number of critters born with a particular physical 
description to help you discover the parent's genetic make-up. 

For example: You are dealing with a single gene pair. You 
breed two parents and get 100 offspring. Of the 100 offspring, 
50% show the dominant trait, and 50% show the recessive 
trait. After trying several combinations of parents on the 
Bio-Computer, you arrive at the conclusion that one of the 
parents must be a double recessive because it shows the 
recessive trait; and the other parent must have a dominant 
gene and a recessive gene. So, using the ratio of the 
offspring, you have determined the exact genetic makup of 
both parents. : 


a 


Chart 2. Both Parents 


A have genetic 
| code Aa 


Dominant 
gene 
determines 
trait 


Recessive 
gene 
determines 
trait 


Chart 3. 


Both Parents 
have genetic 
code AaBb 


Both A &B 
dominant 


Only A 
dominant 


Only B 
dominant 


Botha & b 
recessive 


High School Biology—Level 1 

In this first level, you are concerned with a single gene pair 
and a single trait. The gene we will work with is labeled A. A 
capital A indicates a dominant gene, while a lower case a 
indicates a recessive gene. Four possible gene pairs can be 
made from the dominant and recessive genes: AA, Aa, aA, 
and aa. (The two gene pairs Aa and aA amount to the same 
thing.) 

Level 1 focuses on only one trait. This trait can take one of 
two decriptions depending on the status of the genes; the 
dominant and the recessive description. The dominant 
description of the trait shows up whenever there is a dominant 
gene present in the pair. The recessive description of the trait 
shows up only when both genes are recessive (see Chart 2). 


Biology Major—Level 2 

This level is much more complex than Level 1, because you 
must now work with two gene pairs and two traits. Each gene 
pair has absolute control over the outcome of one trait. 

After you select Level 2, the computer asks you to enter a 
dominant and recessive description for each of the two traits. 
After entering the descriptions, you will be taken through the 
option screens as described above. 

As in Level 1, the first gene pair is called the A pair. We 
will assign the letter B to the second gene pair. A capital B 
signifies a dominant gene, and a small b indicates a recessive 
gene. There are four possible pairs of the B gene: BB Bb bB 
bb | 7 

When asked to enter the code for the parents, you must enter 


both the A gene and then B gene (e.g.. AaBb). The 


following is a table of the possible combinations of genes 
with two gene pairs (see also Chart 3): 
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al 


Chart 4. 


This handy form will help you keep track of succeeding generations and results as you conduct your 
experiments in the genetic laboratory. Keep a supply available for your lab work. 


D = Dominant 
R: 


Recessive 


peaked ehh 


AABB AaBB aABB aaBB 
AABb AaBb aABb_= aaBb 
AAbB AabB aAbB_  aabB 
AAbb Aabb aAbb_ aabb 


Genetics Engineer—Level 3 

In the third level, you still must work with two gene 
pairs—however, these two pairs together affect only one trait. 
The combination of the two gene pairs determines the 
“condition” of the trait. There are 4 possible conditions: (1) 
both the A and the B genes are dominant; (2) only the A gene 
is dominant; (3) only the B gene is dominant; or (4) neither 
gene is dominant. 3 

Each of these conditions can result in a different physical 
characteristic. For example, if the two gene pairs determined 
the eye color in a rare African frog, these might be your 
descriptions: 


GREEN EYES. Both A and B dominant 

BLUE EYES A dominant, B_ recessive 
BROWN EYES A recessive, B dominant 
WHITE EYES 1Both A and B recessive 


As in the other two levels, you are asked to enter a 
description for each of the 4 conditions listed above. 


Turn In Assignment | 

When you are sure you have the proper genetic code in one 
of the current parents, select this option to turn in the 
assignment. The computer asks you to enter the number of the 
parent that you think contains the proper genetic code. If you 
are right, the program congratulates you, displays your score, 
and asks if you want to play again. 

If you turn in the wrong answer—a parent with the incorrect 
genetic code—the program deducts $50,000 from your budget. 
So if you only have $50,000 or less, you lose the game. 
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Alete|o 


If you have enough money to pay the fine, the computer 
displays a conciliatory message and asks if you would like to 
play again. The program then returns you to the main game 
screen. A word of caution: Because you start with $100,000, 
and the fine for turning in the wrong answer is $50,000, two 
wrong answers guarantee the end of the game. 


Loading/Saving Games : 

To save a game that you are unable to complete in one 
sitting, press the key described in the Control Capsule for the 
Load/Save option. Your computer then displays a menu with 
these three options: 


1) Load Previous Data 
2) Save Data 
3) Exit Screen 


If you want to quit the game you are currently playing and 
start a new one which you have previously saved, select the 
Load Previous Data option. Follow the prompts (if any) for 
entering the file and/or device name. 

To save the current game, select the Save Data option. (Atari 
users: At prompt, enter C:Filename to save to cassette, or 
D:Filename to save to disk.) When the operation is 
complete, the computer returns to the main game screen. 

If you made a mistake by selecting this option and do not 
want to load or save data, select the Exit Screen option to 
return to the main game screen. HCJ 


ner 
Atari 


x ot Oe ys 
SoS x bt he bey 


Apple 


Function 


Load and ESC CTRLO & 


Save Menu 


HC journal FEATURE J 


Ws 
ae 
oa) 


é all know the story: 
Rapunzel was locked high in a tower by a wicked 
witch. Every morning the witch would go to the foot 


of the tower and cry: 

Rapunzel, Rapunzel—let down your golden hair! 

Rapunzel would let her long braids drop through the window, 
and the witch would climb up. 

One day the witch demanded that Rapunzel let down her hair 
as usual. But when Rapunzel came to the window, the witch 
saw that she had gotten a Mohawk. 


Hold it! A Mohawk?! Well, perhaps another cut would 
do—or an entirely different twist: Rapunzel dumps a pail of 
dirty water! And then what happens? Ahh, what a tangled plot 
we can weave—with WordWeave... 


Woven Text 

WordWeave is a structured word 
processor for creating interactive 
stories and other multiple-path text 
applications. (See the sidebar, "What 
You Can WordWeave.") These stories 
have a variety of surprising turns and 
numerous endings, because they allow 
the reader to make decisions as the 
plot develops. Do you want Rapunzel to let down her hair, or 
would you prefer she got a Mohawk? From each page, the text 
branches to a new page—and a new turn of events—depending 
on the choice of action (see Photo 1). 

With WordWeave, all kinds of alternative paths are possible. 
Tracing through a woven fabric of text, both the writer and the 
reader have the freedom to determine how a "story" may 
develop, page by page. In this program, a page consists of 
one screen of text and the option to branch to 4 different 
pages. 

To use WordWeave, load and run the program from disk, and 
then remove the program disk from the drive—it is no longer 
required. WordWeave operates from one menu containing the 
following options: : 

Read 
Write 
Print 
Prepare Disk 


Quit 


Preparing The Loom 

Before you can create a story, you must prepare a 
WordWeave data disk using the menu's Prepare Disk option. 
The disk that you prepare should be a blank initialized disk. 
You will need one disk for each text file that you write. 


"Tracing through a woven 
fabric of text, both the writer 
and the reader have the freedom 
to determine how a ‘story’ may 

develop, page by page.” 
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Here's a specialized word processor 


for creating a branching text stream—be it 


interactive fiction or a host of practical 
multiple-path applications. . . 


When you choose the Prepare Disk option, the program 
prompts you for a title and an author. These two items are the 
first to appear on the screen whenever you choose to Read or 
Write with WordWeave. 


Write 

Once you have prepared a data disk, you are ready to start 
weaving your multiple-path text. Before choosing this option, 
you must place your disk into the disk drive. (If you don't, the 
program generates an error message and brings you back to 
the main menu.) As mentioned, the title page appears first. 
You can now press [RETURN] or [ENTER] (as your machine 
requires) to turn the page and start writing. 

In both the Write and Read options, the screen always 
displays the page number in the upper-left corner of the 
screen. The upper-right corner shows 
the number of options that are 
available to the reader. Each time you, 
the writer, add another branch from 
this page, the number of options 
increments. 

Write mode provides several editing 
options: You can enter a screen of 
text, define the different pages that 
this page may branch to, go back to 
the previous page, go to any desired page, or return to the 
menu. There is a different keypress for each of these options. 
See the Control Capsule for your particular computer for a 
complete list of these options and keypresses. 

When writing a page of text, you have all the standard 
editing features that your system allows (i.e., insert, delete, 
etc.). You can even add a header that titles each of the different 
pages. 

A simple keypress (see your Control Capsule) allows you to 
toggle the Branches menu on and off. This menu appears at 
the bottom of the screen and displays the various Branch 
options that are available to the reader. You can specify up to 
4 branches, each of which can branch to any page. You can 
even have a page branch back to itself. You do not have to 
use all 4 branches—in fact, you don't have to use any. Here is 
an example of a Branch menu: 


were ecenneee= BRANCHES ------------ 

1- Have Rapunzel let down her hair 
2- Give Rapunzel a Mohawk 

3- Pick a new hairstyle 

4- Dump the water 


To edit the Branches menu, press the proper key to make the 
menu appear. To add a description to a branch, such as "Have 
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Not all text generated with WordWeave 
has to be in the form of interactive stories. 
You can use this program to organize any 
kind of branching text—fiction or non-fiction. 
One possible application might be something 
like a tree-identification guide. Page 1 could 
ask about the shape of the tree's branches. 
Are they twisted, straight, multi-limbed...? 
Depending on the answer, the program will 
branch to a different page. This new page 
may ask about the shape of the leaves. 
Through a series of such logically linked 
questions, the "story" can lead the reader to 
a proper identification. 3 

On the subject of foliage, how about family 
trees? Page 1 could profile your own life. 
Branching from page 1 may bring you to 


What You Can WordWeave 


different pages that describe either your 

mother's or your father's life. And from these 
pages, you could decide whether to trace the 
life of your parent's mother or father, and so 
on. Just as your family grows and branches 
out, so does the story. | : 

And as well as reaching into the past, this 
program can also help you anticipate future 
problems and solutions. For example, 
WordWeave is an excellent format for a 
troubleshooting manual—one that leads you 


to the proper fix according to which | 


"symptoms" you uncover. - 3 : 
All kinds of practical and creative works 

are possible with this well-woven program. 

So, weave on! : | : 


i Be eee SRR ER, BEBE Biseeets? 


Photo 1: This screen from the IBM version of 
WordWeave shows text entered in the main area, with 
Branch options in the menu window, below. Now in 
Write mode, the writer is designating a page to which 
a@ particular option will branch when a reader selects it 


Rapunzel let down her hair," simply press the key 
corresponding to the branch that you wish to edit and enter 
your description. To designate which page an option branches 
to, put the cursor on that Branch line (1-4) and use the 
“Branch Destination" keypress from the applicable Control 
Capsule. (Note to TI computer users only: You must press the 
proper keys while the cursor is scrolling through the top of 
the Branches menu.) Now the program prompts you for the 
page number that this branch should go to. If you do not 
enter a number, the computer defaults to the next available 
empty page—or, if you have previously entered a number for 
this branch, it defaults to that page number. Once you enter 
the number, WordWeave immediately takes you to that page. If 
you wish to "prune" a branch from a page (that is, erase a 


branch previously set), simply enter a page number of zero 
goes to—effectively 


when specifying where the branch 
truncating that branch from the page. : 

If, for any one page, you have more then 4 branches in 
mind, use the fourth branch to go to another page, where you 
may continue to present alternatives. Oe So as 

If you want to go back to the previous page, press the key 
specified in your Control Capsule. To go to any page at all, 
make sure that the Branch menu is not present, then press 
"Destination" key, enter the desired page number, and away 
you go. To return to the main menu, press your "Exit" keys. 

Now it's time to start writing! Be creative and experiment. 
For example, try making your story into a maze. Pretend that 


the pages are rooms and each of the 4 branches: are — 
exits—north, south, east, and west. The possibilities go on 


and on... 


Read — 

Before you choose this option, make sure that the data disk 
with the text that you wish to read is in the disk drive. The 
first thing that you see on the screen when you choose the 
Read option is the title page. Press [RETURN] or [ENTER] 
to turn the page. ee ! 

In this mode, you can display the Branches menu, select a 
Branch option, go back to the previous page, or return to the 
main menu. There is a different keypress for each of these 
options. See your computer's Control Capsule for a complete 
list of these options and keypresses. | 


From Read mode, you can venture forth into a story's every | 


turn, twist, and pitfall. You control the events by making your 
own choices as to which direction the story branches. If you 
don't like the way the plot is going, you can always return to 
the previous page and make a different decision. If you don't 
like the way the story is reading, you can always go back into 
Write mode and change it! : 

Imagine: You are floating down a calm and peaceful river in 
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from the menu. 


Africa, when suddenly you are attacked by a group of violent 


Savages. Startled, you reach for your gun. Just as you steady 
your aim on one of your spear-waving opponents, you realize 


that your raft is headed straight for a waterfall. Do you: (1) 
abandon ship and swim for it; (2) fire at will and worry about 
the waterfall later; or (3) paddle like heck towards shore and 


hope these savages are just friendly vegetarians? In Read 
mode, the choice is yours. You make the decisions; you 
determine the fate of the story. 


Print : 
With this menu selection, you can print all. or part of a 
WordWeave story. When choosing this option, make sure that 


your data disk is in the disk drive. Because the print routine is 


set up to print two pages of text per one sheet of fan-fold 
paper, be sure to begin the printout at the top-of-form. The 


computer asks you for the starting and ending numbers of the 


pages that you wish to print. Once you have entered this data, 
the computer prints each page of text, including the Branches 
menu, which specifies the page number that each option 
branches to. : | 


Quit aoe 
Select this option to exit the program. Don't worry: You are 


in no danger of losing data when you exit the program. All of 
a story's information is kept on your data disk. 


HCJ 


KEY 
Write Mode 

CTRLT ~~ Edit header: 

RETURN Exit header 

CTRLG Gotoapage 

ESC Go to previous page 

CTRLX Exit to main menu from 
any page except title page 
Toggle Branches menu 
Delete character 
Insert space 


FUNCTION KEY FUNCTION 

Editing Branches menu (cont.) 
RETURN Edit branches 1 
UP & DN 
ARROWS 
CTRL X 

Read mode 
CTRLB 
1 


Exit to main menu 


Toggle Branches menu 
Choose Branch 1 

Choose Branch 2 

Choose Branch 3 

Choose Branch 4 

Go to previous page 

_ Exit to main menu from any 
page except title page 


CTRLB 
CTRL D 
CTRL | 


Editing Branches menu 


CTRLB Toggle Branches menu 
CTRLG Define a branch destination 


REMARKS: a ; ene 
During Write mode on the Apple version of WordWeave, pages are saved as sequential 
text files on the disk. Each page is a separate file. If you look at the directory of the disk, 
you find file names such as WT.01 and WT.02 for pages 1 and 2. This process of 
saving pages as text files continues until the volume is full, giving a total of 51 pages, 
including the title page. It is therefore suggested that you start ‘with a clean formatted 
disk for each volume of your WordWeave library. 


@ 


Mat 


WordWeave 
KEY FUNCTION KEY FUNCTION KEY FUNCTION 
Write mode Write mode (cont.) Editing Branches menu (cont.) 
CTRL H Edit header CTRL Insert Insert space RETURN Edit Branches 1—4 
RETURN ~ Exit header CTRL X Exit to main menu from UP & DN 
CTRLG Go to a page any page except title page CURSOR 
ESC Go to previous page CTRLG Define a branch destination 
CTRLB Toggle Branches menu Editing Branches menu CTRL X Exit to main menu 


CTRL Delete Delete character CTRL B Toggle Branches menu 


REMARKS: 

During the Prepare Disk option on the Atari version of WordWeave, the disk is 
initialized such that it is dedicated to the WordWeave program alone. Because the 
disk is actually reformatted so all files on the disk are destroyed, don't use a disk that 
has anything on it you wish to keep. Only one WordWeave file can be stored on the 
disk, so don't use the disk for anything except the one WordWeave file. Also, if you 


KEY FUNCTION 
Read mode 
CTRL B Toggle Branches menu 
1 Choose Branch 1 
2 Choose Branch 2 
3 Choose Branch 3 
4 Choose Branch 4 
ESC Go to previous page 
CTRL X Exit to main menu from 


any page except title page 


look at the directory of the disk it appears to have nothing on it—always place a label 
on a WordWeave disk so you don't accidentally use it for something else. 

Note: Due to this program's unique method of screen memory management, it 
works only on the Atari 800XL and 130XE. See "HC Journal 1/O" for a special 


"Hacker's Challenge." 


WordWeave 


KEY 
CTRL P 
Write mode 

'. CTRLH 


FUNCTION 
Print screen 


KEY FUNCTION 
Write mode (cont.) 

SHIFT CLR Erase screen 
Edit header HOME Home cursor to top of screen 

RETURN ~ Exit header 
CTRLG Go to a page Editing Branches menu 
é Go to previous page F1 Edit Branch 1 
CTRL X Exit to main menu from F2 Edit Branch 2 

any page except title page F3 Edit Branch 3 


CTRLB Toggle Branches menu F4 Edit Branch 4 


REMARKS: 
The Prepare Disk option on the Commodore 64 version will actually initialize your 
disk for you, so make sure that the disk you prepare does not contain anything you 
with to keep. 


KEY FUNCTION 
Editing Branches menu (cont.) 
RETURN Edit next branch 
CTRLG Define a branch destination 
CTRL X Exit to main menu 
CTRLB Toggle Branches menu 


Read mode ; 
F1 Choose Branch 1 
F2 Choose Branch 2 


KEY FUNCTION 
Read mode (cont.) 

F3 Choose Branch 3 

F4 Choose Branch 4 
Go to previous page 
Exit to main menu from 
any page except title page 
Toggle Branches menu 


ke 
CTRL X 
CTRLB 


On this version you also have an option that is not available on the other 
machines: At any time, you can send a screen dump to the printer by pressing 
[CTRL] P. The screen dump that WordWeave uses is written in machine language. 


WordWeave 


KEY 
Write mode 

Fn 5 

Fn6 

ESC 

Fn8 

Fn 7 


FUNCTION KEY FUNCTION 
Editing Branches menu 
Fn8 Toggle Branches menu 
Fn 1 Edit Branch 1 
Fn2 Edit Branch 2 
Fn3 Edit Branch 3 
Fn4 Edit Branch 4 
Fn6 Define a branch destination 
Fn7 Exit to main menu 


Edit/Exit header 

Go to a page 

Go to previous page 
Toggle Branches menu 
Exit to main menu from any 
page except title page 
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ane 


KEY 
Read mode 
Fn8 
Fn 1 
Fn2 
Fn3 
Fn4 
ESC 
Fn7 


FUNCTION 


Toggle Branches menu 
Choose Branch 1 

Choose Branch 2 

Choose Branch 3 

Choose Branch 4 

Go to previous page 

Exit to main menu from any 
page except title page 


WordWeave 


; KEY FUNCTION 
_ Write mode (cursor scroll mode) 
CTRLH — Edit header 
ENTER Exit header 
CTRLG Gotoapage 
FCTN9 Go toprevious page 
CTRL X — Exit to main menu from any 
_ page except title page 
CTRLB Toggle Branches menu Editing Branches menu 
CTRLW_ Write text 1 Edit Branch 1 
(non-memory expansion only) 2 Edit Branch 2 


KEY 
Writing text 
FCTNE Move up a line 
FCTN X Move down a line 
ENTER Return to write mode 
(cursor scroll mode) 
(non-memory expansion only) 


» ‘FUNCTION 


REMARKS: — ; | 
The TI-99/4A version of WordWeave runs differently without memory expansion. 

The difference is ‘in Write mode. When you first enter Write mode, your cursor 

circulates across the top of the screen (cursor scroll mode), telling you that it is ready 

for a keypress. From here you must press one of the keys specified in the Control 
- Capsule to enter any one mode. Specifically, you must press [CTRL] W to enter any 
- text onto the screen. With memory expansion, however, there is no need to press 

[CTRL] W because you are always editing the screen's text. The memory 


KEY FUNCTION 
Editing Branches menu (cont.) 
3 Edit Branch 3 
4 Edit Branch 4 
CTRLG Define a branch destination 
CTRL B Toggle Branches menu 


Read mode 
1 Choose Branch 1 
2 Choose Branch 2 


REMARKS: 

The IBM version of WordWeave provides 
for more text to be entered than any of the 
other versions. The screen display takes 
advantage of the 80-column mode for text 
input and a total of 100 pages is allowed for 
each story or volume. 

Another unique feature in the Write mode 
allows the cursor to wrap around the 
screen right to left and bottom to top (or vice 
versa)—a useful accommodation when 
editing. 
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HO OS z Peenee6 lotedoteistonststotucavetatete a ote ate otal on Se I ey Patetatetoocararocenaate Se vesorons i on 5 Se oe x 


KEY FUNCTION 
Read mode (cont.) 
3 Choose Branch 3 
4 Choose Branch 4 
FCTN9 Go to previous page 
CTRL X__ Exit to main menu from any 
_ page except title page 
CTRLB Toggle Branches menu 


expansion version takes advantage of a special full-screen editor written in machine 
language specifically for the WordWeave program. 

With or without memory expansion, when defining branches, the cursor scrolls 
through the top of the Branches menu to inform you that it is ready for a keypress. When 
you choose to define a branch, you must press [CTRL] G while the cursor is scrolling like 
this. Once pressed, you are prompted for the number of the branch that you wish to define 
and then the page number that this branch should go to. 
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knobs, dials, and buttons spread before you like a neon 
quilt, you suddenly feel a shiver run up your spine. 
"This is it," you mutter—pressing the activate button. You can 
actually feel the power surge into the machinery as- the 
sub-modules come to life. Suddenly, a previously blank video 
screen begins to glow, displaying the greeting, "Welcome to 
the EPA Nuclear Waste Disposal Simulator." You take a deep 
breath and try to calm down as the test is about to begin. 
How do you handle the disposal of radioactive waste? Who 
knows? If it's all buried in one place, it may affect the quality 
of the surrounding ground water. You can't just throw it in the 
city dump, because it may combine with other unknown wastes 
to form a gruesome slime monster right out of some science 
fiction B movie. Lots of proposed solutions exist, but 
nothing like the Digital Dumpster... 


What's In A Game? 

Digital Dumpster is a simulation game for would-be EPA 
controllers. Its secret function, however, is to teach algebraic 
thinking and binary-to-decimal conversion. Before you can 
dump any wastes, you must first use a binary routing control 
to pre-condition the "hot dust." Only then can you—as the 
Digital Dumpster Dispatcher (DDD, for short)—arrange for 
transportation of the hazardous material. 

Your final and most crucial responsibility involves 
indentifying and deciding where to dump the waste. There are 4 
dump sites available. All 4 dump sites are close enough to one 
another that each affects the other two sites. You must 
mathematically balance storage among these sites to safely 
contain the radioactive dust. For each game, the ideal balance 
always appears as a simple mathematical expression—an 
expression that produces a whole-number result. By depositing 
the right "storage number" at each site, you can duplicate this 
ideal expression—and thus achieve the ideal balance. 


\ s you climb into the form-fitted seat with an array of 


Using The Simulator 
When you start the program, it 
presents the title screen and 4 


options: "\.. you must first use a binary 
routing control to pre-condition the 
hot dust. Only then can you arrange  sclect that tube by setting the 
for transportation of the 

hazardous material." 


1) Apprentice | 

2) Field Representative 
3) Supervisor 

4) Exit Program 


After selecting the level of 
difficulty (explained in detail later), you will go to the 
simulator screen. This simulator consists of a system of tubes 
that direct the radioactive waste from the top of the screen (see 
Photo 1). All waste enters the system through a single tube at 
the top, which branches into two tubes. Each tube then 
branches into two more tubes, creating 4 tubes. There are 16 
possible outlets for the waste at the bottom of the tubes 
(numbered 0 to 15). At each level of branching, you control 
which branch carries the waste by toggling the switches on 
the left side of the screen. Setting the right combination of 
switches at the 4 branch levels determines which of the 16 
tubes eject the "hot dust." On closer inspection, you start to 
notice a binary-to-decimal relationship between the switches 
and the number of the tube that ejects the waste. The switches 
actually represent a 4-bit binary number. 


Bit By Bit : 

There is a simple method for converting from the binary 
numbering system to the decimal numbering system (see Chart 
1). Start with the “least significant" bit (in this case it is the 
bottom switch) and assign it a value of one. For each bit after 
this first bit (bit 0), double the value you assign to it (bit 
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Can mathematics solve the nuclear waste 
dilemma? This simulation may provoke 
many answers—but perhaps not the one 

— you're looking for... 


1 has a value of 2, bit 2 has a value of 4, bit 3 has a value of 
8). To find the value of a binary number, simply add the 
assigned values together for any bits which are turned on (set 
to 1). For example the binary value 0101 has a decimal value 
of 5 (bit 0 [1] + bit 2 [4] = 5). If you were to turn the bottom 
switch (bit 0) to 1, and the switch next from the top (bit 2) to 
1, and set the other two switches to 0, then the waste material 
will be ejected from tube number 5. : 

If you wish, however, you can ignore all this and merely 
concentrate on the position of the "gates" within tubes as you 
flip the switches back and forth—thereby clearing pathways to 
the proper numbers at the bottom. 


Don't Waste The Waste 

Digital Dumpster's filtering system of tubes occupies the top 
two-thirds of the screen display. Immediately below the 
loading tubes is a ramp that the waste disposal truck uses to 
get from one tube to another. Below the ramp are 4 bins, with 
a small box between each bin. 

Back the truck up to any one of 
the numbered tubes using the keys 
specified in your machine's 
Control Capsule. You must then 


proper switches—pressing 1, 2, 4, 
or 8 for the switch you wish to 
change. (Each switch is set to 
either 1 or 0; pressing the key for 
that switch toggles between these two values). Press [ENTER] 
or [RETURN] (Up Cursor on Atari machines) to load the 
truck. If you select the wrong tube, the waste spills out onto 
the ground, contaminating you and all of your co-workers. 
Whenever you load waste from a tube, the tube is completely 
emptied. The only way to get any more from that tube is to 
press the simulator's reinitialize button to start over (see your 
machine's Control Capsule). Using this key, however, is not 


taken lightly with the EPA, so be careful not to waste your 


waste. 

Once a tube has dumped its waste into the truck, the truck 
can move to any of the 4 bins to unload cargo. Each time you 
dump into a bin (see Control Capsule), it displays the number 
of the tube from which your truck received the waste. 


Expressing The Goal 

Each of the 4 bins at the bottom of the screen can contain a 
number from 0 to 15. The three small boxes between the bins 
each contain an operator (+ for addition, — for subtraction, and 
* for multiplication). The operators are never repeated, so all 
three operators always appear—but the order in which they 
appear from one box to the next is always random. 


| 
. 
. 
. 


Photo 1: In this photo from the IBM version of Digital Dumpster, a 
system of tubes with binary gates provide 16 "mixes" of nuclear waste, 
each asssigned a numeric value. Placing these gates in the proper 
position dumps specific numbers, which the truck can shuttle into the 
bins at the bottom. A correct arrangement of numbers in the bins forms 
a mathematical expression resulting in the desired "goal" figure shown 
at the upper right. 


At the beginning of the simulation, you receive an assigned 
value. This value appears at the top of the screen near the 
word "GOAL." You must create an expression that produces the 
value given. To do this, follow the number selecting and 
dumping procedure outlined above, until each bin contains a 
number, and the series of numbers and operators forms an 
expression. 

Let's suppose that our first problem has a goal of —12, and a 

sequence of operators that subtracts, adds, then multiplies 
(-+ * = -12 ). One possible solution is to subtract 10 
from 3 (—7), add 5 (—2), and multiply by 6 (-12). 
There is never a single “right answer"—there may be, in fact, 
several right answers. The simulator recognizes all right 
answers, because it actually uses the values you place into the 
bins to do the calculation to see if it produces the proper 
"GOAL" value. 


Levels Of Difficulty 

The main difference in play between levels is that in level 
1, all three operators are visible; in level 2 only one operator 
is visible; and level 3 displays no operators at all. Note that 
the position and type of operators are always random. This 
means that you need to experiment with several values in order 
to determine what the hidden operators are. If you guess 
wrong, your only clue is a prompt stating that your 
nuclear-waste-balancing expression generates a value too high 
or too low. To change a value in a bin, simply dump a new 
value on top of it. To replace a value in the truck before 
dumping, simply load another value into the truck from the 
tubes. Because you can dump each number only once, 
replacing the value previously in the truck removes that value 
from the game. 

Scoring works as follows: Higher scores are possible at 
higher levels. The highest possible score is 500 on level 1, 
750 on level 2, and 1000 on level 3. Each time you load the 
truck, 10 points subtract from the total. Each time you unload 
the truck's cargo, another 10 points subtract. If you use the 
reinitialize numbers key, 100 points subtract from the score. 

Note that .a player can load a number and then decide to load 
another number without first dumping the original. This 
results in a 20-point reduction from the total score, and the 
loss of the original number. HCJ 


0 = Bit 


KEY 

Left Cursor 
Right Cursor 
Down Cursor 
RETURN 
ESC 


KEY 

Left Cursor 
Right Cursor 
Down Cursor 
Up Cursor 
CTRL X 


KEY 

Left Cursor 
Right Cursor 
Down Cursor 
RETURN 
Function 5 


KEY 

Left Cursor 
Right Cursor 
Down Cursor 
ENTER 
Function 9 


KEY 

Left Cursor 
Right Cursor 
Down Cursor 
ENTER 
FCTN 9 


! Switch Off 


1 = Bit / Switch On (add Bit Value to total) 


Digit 


FUNCTION 

Move truck left 

Move truck right 
Dump truck load 
Open loading chute 
Return to main menu 


Digita 


FUNCTION 

Move truck left 

Move truck right 
Dump truck load 
Open loading chute 
Return to main menu 
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FUNCTION 

Toggle bit 0 

Toggle bit 1 

Toggle bit 2 

Toggle bit 3 

Reinitialize numbers key 


Dumpster 


FUNCTION 
Toggle bit 0 
Toggle bit 1 
Toggle bit 2 
Toggle bit 3 


CTRLR_ Reinitialize numbers key 


Digital Dumpster 


FUNCTION 

Move truck left 

Move truck right 
Dump truck load 
Open loading chute 
Return to main menu 


FUNCTION 

Move truck left 

Move truck right 
Dump truck load 
Open loading chute 
Return to main menu 


Digital Dumps 
FUNCTION 
Move truck left 
Move truck right 
Dump truck load 
Open loading chute 
Return to main menu 


FUNCTION 
Toggle bit 0 
Toggle bit 1 


~ Toggle bit 2 


Toggle bit 3 


Function 3 Reinitialize numbers key 


FUNCTION 

Toggle bit 0 

Toggle bit 1 

Toggle bit 2 

Toggle bit 3 

Reinitialize numbers key 


ter 


FUNCTION 
Toggle bit 0 
Toggle bit 1 
Toggle bit 2 
Toggle bit 3 


Reinitialize numbers key 
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Hexadecimal Value 
Bit 3 / Value Of 8 
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BMhancing — 
Apple J Sound 


If hard-to-use machine-language sound routines have you 
byte-ing your nails—try these SOUND commands 
for PLAYing music by the letters. 


enerating useful sound effects and music on an Apple 

computer requires knowledge of assembly language or 

special software and/or hardware. Many personal 
computers have built-in BASIC functions to generate music, 
but Applesoft BASIC (without machine-language help) is 
limited to beeps and buzzes. Here, we present a short program 
that you can merge with any BASIC program—letting you 
play music and generate many exciting sound effects from 
BASIC—without hardware modifications. 

The only way to create sound on an Apple computer is to 
vibrate the speaker. You do this by PEEKing memory 
location —16336. PEEK the location once, and the speaker 
makes a small click; PEEK the location 440 times per 
second, and you hear an A above middle C. The only other 
way to make a sound in BASIC—without hardware 
modifications—is to type or PRINT a[CTRL]G 
(CHR$(7)). These are by no 
means the most impressive 

sounds. 


Figure 1. 


ABCDEFG . 
SPACE 
12486 


Four New Commands 
To really show off what the 

Apple computer can do when not 
limited by BASIC, and to provide | #°r+ 
BASIC programmers with some | — (minus) 
solid programming tools, we have | < 
created four easy-to-use machine | > 
language sound routines. The 
machine language routines extend 
Applesoft BASIC by adding these 
CALL commands: NOISE, 
SOUND, PLAY, and OFFSET. 
(These four commands are actually 
variables which contain the 
calling addresses for the 
machine-language routines.) : 

The NOISE command generates 3 
one of 256 complex sound effects. The format is: 

CALL NOISE, number , 
Where number represents any value from 0 to 255. For 
example, CALL NOISE, 254 plays sound effect #254. Or, 
Z=10: CALL NOISE,Z+5 plays sound effect #15. oe 
_ This command generates simple tones. You must specify the 
length and the pitch of the tone. The SOUND command uses 
the following format: 
CALL SOUND, length,pitch i 

Where length represents any value from 1 to 2047, and pitch 
can be any value from 0 to 255. For example, CALL 
SOUND, 500, 160 creates a tone with a length of 500 and 
a pitch of 160. Similarly, CALL SOUND, 50, RND 
(1)*256 generates a tone with a length of 50 and a random 

itch. . 
: The PLAY command allows you to PLAY melodies. You 
must specify the length of a whole note, and then specify 
which notes to play. Use the format: : 

ie CALL PLAY, length,string 


Figure 2. 
CALL PLAY,100,"CCGG>AA<G FFFEEDDC" — 
CALL PLAY,150, "1E2EG#G>BE1DB#F2BDE" 
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Play the notes A through G 
_ Play a rest ee ree 
Set note duration to whole, half, quarter, 
and sixteenth notes, respectively 
_ Raise the next note by a half-step 
Lower the next note by a half-step 
Lower the octave at 
Raise the octave 


CALL PLAY,175, "EEFGGFEDCCDEEDD" 
CALL PLAY,200,"2#CD #DE 
>CB >EG >BI#A 2#AA<GEE" 


The length can be any value from 1 to 2047, and string can 
be any character data. The higher the value of the length 
parameter, the longer the notes play. Figure 1 provides all the 
valid codes that can be contained within the string. 

When you call the PLAY command, you start on the lowest 
of three octaves. The digits 1, 2, 4, 8, and 6 determine 
whether to play whole, half, quarter, eighth, or sixteenth 
notes/rests. When you first use the PLAY command, note 
durations default to whole notes. Here are some sample uses of 
the PLAY command: _ oe piasiesor oe Sones, 

A$ ="A EBFC G4GEC A": 
CALL PLAY,255,A$ oe 

Here, whole notes are set to a length of 255. This example 
plays whole notes A, E, B, F, C, G, and quarter notes G, E, Ses 
and A. The spaces between the notes act as rests. The number 
4 tells the routine to play quarter notes. All notes and rests 

preceeding the number 4 are 

considered whole notes, while all 
_ notes and rests following that 
number are considered quarter 

NOLES Pe 

CALL PLAY,150, 3 

"ABHCDE#F#G>AAA<A" 

_ Here, whole notes have a length 
of 150. This example plays the 
notes A, B, C, D, E, F, and G. You 
can enter sharps by inserting a 
pound sign (#) before the note (C, 
F, and G are sharps). The 
greater-than symbol (>) raises the 
notes by one octave. The less-than 

symbol (<) lowers the notes by 
one octave. Figure 2 provides 
some familiar tunes that you can 
enter using the PLAY command. 

Use the OFFSET command to 
change how the PLAY command 


#EG #DE #FG 


functions. With OFFSET, you can raise or lower every note 


produced by the PLAY command, allowing you to transpose 
music. Use the format: ae : : 

CALL OFFSET number pe : 
Number can represent any value from 0 to 15. For example, 
CALL OFFSET,1 transposes every sound produced by the 
PLAY command up a half-step. CALL OFFSET,S5 raises 
every sound produced by the PLAY command by 5 half-steps. 
CALL OFFSET,O0 resets the offset back to the original note 
values. | Sees 


Sample Program . Le ae 

We have provided you with SoundDemo, a sample program 
using the sound routines described above. This program 
demonstrates the three main sound routines: NOISE, 


SOUND, and PLAY. From a main menu, you may choose and 


experiment with any of these commands. With each option, 
you can enter the different sound parameters and hear the 
results. To exit from an option, simply press [RETURN] 


f > 


re 


when prompted for a sound parameter. Pressing [RETURN] at 
the main menu exits the program. 


Programming Considerations 
When incorporating these routines into your BASIC 


programs, there are three things to consider: (1) You must 


make sure your program is relocated to protect the area used by 
the sound routine. Look at line 190 of the SoundDemo 
program to see how we achieve this; (2) Append lines 
9000-9140 of SoundDemo to one of your programs and be sure 
to execute a GOSUB 9000 at the beginning of it; (3) These 
sound routines use variables PLAY, SOUND, NOISE, and 
OFFSET, so be careful not to use any other variables whose 
names start with PL, SO, NO, or OF. If you prefer, you may 
simply delete lines 210-460 from SoundDemo, leaving only 
the necessary code for the sound routine. Then insert your 


program between lines 210-8990. HCJ 


| Sandbee 
Line Nos. 


100-180 Program header 
190-200 Relocate program and set up sound routines 


210-280 Main menu 

290-330 NOISE demo 
340-400 SOUND demo 
410-460 PLAY demo 
9000-9140 Set up sound routines 


NOISE = Address of NOISE command; SOUND = Address of SOUND | 
command; PLAY = Address of PLAY command; OFFSET = Address of 
OFFSET command; K$ = Menu choice; S$ = Inputs parameters; N = First 
parameter; N1 = second parameter 


100 REM eR OOO IO KOK FOKK 
110 REM **x SOUND ROUTINE DEMO ** 
120 REM OOO OOOO KCK 
130 REM COPYRIGHT 1986 

140 REM HOME COMPUTING JOURNAL 
150 REM VERSION 1.0 

160 REM APPLE II FAMILY APPLESOFT 
170. REM | 

180 REM 


19G° TE - PEEK (104) < > 64 THEN POKE 104,64: POK 
E 16384,0: PRINT CHR$ (4); "RUN SOUNDDEMO" 

GOSUB 9000 ; 

HOME : VTAB 5: HTAB 11: PRINT “SOUND ROUTINE 


VTAB 10: HTAB 11: PRINT “[{1] NOISE COMMAND" 
VIAB 12; “HTAB 11: PRINT" [2] (SOUND COMMAND: 
VTAB 14: HTAB 11: PRINT “(3] PLAY COMMAND" 
VTAB 20: PRINT “SELECT ONE:”" ; 
GH? RS. Ir KE <> AND KS <> 2 AND KS 
eS AND RS << >. GHERS? (13) THEN CALL NOISE, 
92 GOTO<260 ° 
2iQ: IF K$ = CHRS (173) TREN HOME : END 
280 CALL SOUND,40,35: PRINT K$: ON VAL (K$) GOSU 
B 290,340,410: GOTO 210 
290. FOR 1.-= 1..TO, 800: NEXT 1: HOME « VTAB 5: ATAB 
13: PRINT “NOISE COMMAND" 
300 VTAB 8: HTAB 8: PRINT "ENTER A NUMBER 0-255." 
HAR 6: PRINT. ..PRESS [RETURN] TO EXIT...” 


310 -<VEARB 14: INPUT “ENTER. NUMBER: ";SS"1F S$ = 
THEN RETURN 
SOON =. VA (Sh)2.1F NS 0 OR NO 255 THEN © VITAB 
20: HTAB 13: PRINT “OUT OF RANGE"; CHRS (7): GOTO 
290 
330° VIAB > 20 7-RTAB 13: PRINT “CALL NOISE, ";N: CALL 
NOISE,N: GOTO 290 
540 = FORT 321-70. 600+: NEXT: Ls) HOME >: VTAB 5: -HTAB 
13: PRINT "SOUND COMMAND" 
350 VTAB 8: HTAB 8: PRINT "ENTER A LENGTH 1-2047. 
HTAR, 65 PRINT. “BNTER A. PITCH 0-255. 3. HTAR. 62: P 
RINT “PRESS [RETURN] TO EXIT.” 
S360 -*VPAB 13° “INPUT “ENTER LENGTH: | S8*-iF 
THEN RETURN 
370: NS VAL2¢SS) : EP ON: 494° OR No. 2047 THEN... V-TAB 
HTAB 13° -PRINT “OUT. OF. RANGES -CHRS (7). GOTO 


380 VTAB 15: INPUT “ENTER PITCH:";S$: IF S$ = 

THEN RETURN 

390 Nl = VAL (S$): IF N1 < 1 OR Nl > 2047 THEN V 

TAB 20: HTAB 13: PRINT “OUT OF RANGE"; CHR$ (7): G 

OTO 340 : 
400 VTAB 20: HTAB 13: PRINT "CALL SOUND,";N;",";N 
1: CALL SOUND,N,N1: GOTO 340 

410 FOR I = 1 TO 800: NEXT I: HOME : VTAB 5: HTAB 
13: PRINT “PLAY COMMAND" 

420 VTAB 8: HTAB 8: PRINT “ENTER A LENGTH 1-2047. 
": HTAB 8: PRINT “ENTER A STRING OF NOTES.": HTAB 
8: PRINT “PRESS (RETURN) TO EXIT." 

430 VTAB 13: INPUT “ENTER LENGTH: ";S$: IF S$ = “' 
THEN RETURN 


A400 N = VAL (OS): LE N-< 2 -OR-N > 2047. THEN 


20: HTAB 13: PRINT “GUT OF RANGE; CHES (7): 
410 

AGO VYIAB 252. INPUT ENTER STRING: “| SS: If 
THEN RETURN 

AGO. NVIAB. 20: BIAB Le. PRINT CALL PLAY; <.;N5 050 3 

R$ (34);5$; CHRS (34): CALL PLAY,N,S$: GOTO 410 


9000 REM INSTALL THE SOUND ROUTINE 
9010 PLAY = 2816:SOUND = 2819:NOISE = 2822: OFFSET 


= 2825:X% = 0 

JOZO. If> PEEK. (2816) 16: THEN 9050 

9030 RESTORE : FOR K 1 TO 999: READ AS: IF AS < 
>. SOUND”. THEN . NEXT .:. GOTO 630 

S040 WORK = 20)6. 70 S152. READ Fuk =X +P: PORE 

Kee NEXT Ree ks CO O81) - THEN O30 

9050 CALL OFFSET,O: RETURN 

9060 DATA "SOUND" 


9070 DATA 16, 16,141,706, Si gid, 76,19) Vi o2, (Og aos, 


138,415,156, 141.531.1296, 32,765,231, lot, 31,169)0,466, 
430,208 ,205,44, 40,102,060, 229,31, 206,244 ,96,32,190, 
242,346,100, 24417,02,02, 201,166, 80 

9080 DATA HOO POL a, 100, 01,960, o2,00, 1.1; 794,29" 
pide, 80); 32 776,231,134, 7,109, 46,793,31;76;9,12,39253 
o.0% | 321905222, 5271237221, 32 7108) 228 ,160;0,132,6, 
192,208,192, 8,132,265, 177 , 460 

9090 DATA 240.,192,133,9, 200,177,160 ,139, 38,200, 
177 200.133 ,39,164,6;162,0,177, 36, cl. 32,240 , 99,20 
15 43,,20852,230; 26, 201,865,200 2,250, 26,201,450, 208; 2 
p90; 26, 160 5,136, 48, 7,217,328, 12 

9100. DATA 209652464132; 8, 166,.28:;,:201,60, 208,10, 22 
40,240 6,138,506, 233 12; 195,26; 201,62, 2068, 10,224, 2 
4 A176 6,138; 24,105,122, 133) 28,201 ,69,144,63,201 72, 
176559506233; 65,170, 245109; 375 12 

9110 DATA 109, 31,512,104 268,:101)-26, 201, 56; 14¢ 2, 
169,935,170, 189,44, t2.162548, 133,7,134;31,,160,80,135 
3,29,165,-84,,133, 30 -166,3 7240,7, (0,30 /102,29, 202,20 
8, 24(,160,0,32,0. 125 eee ego 

9120. DATA 26,230 ,6,198,9,240,3, 76,194 .11,96, 166 
,31,189,0,192,160;, 77190, 206,78. 198, 29, 2054, 190.50, 
#65 23°77 202,208; 24277665-75 76,0, 12,0549 ,,00 52,50, 048, 
Opis fo 8 0 

91.30: DATA 230;,.216,.204°192,182,171, 1613232 44372 
$5 ,127,120,113 107,201 25.89; 84,79, 75, fi oi eo 
ob.,04,500,47, 44,41, 39,5), 20,00; 31, 29,0 

9140 .PRINT “ERROR IN THE DATA"; CHRS (7): POKE 28 
16,0: END 
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Atari Plotting: 
Painless (Perspective 


With an Atari home computer and the right algorithm, 
you're just a stone's throw from 3-D surface graphics. 


photographs of milk droplets on a cereal box, or TV 
commercials with orange juice splashing into a tall 
glass? These familiar visual images actually rest on .an 
interesting mathematical fact—that the droplets ejected from 
the center of a splash rise to a height that is practically 


ow many mornings have you awakened to stop-action 


infinite when compared to the height of the waves in the — 


liquid itself. | 

We can take advantage of this mathematical curiosity when 
designing computer graphics, as shown by the accompanying 
program for Atari computers. The program, called Ripples, 
uses a Classic algorithm to generate a three-dimensional 
sine-wave ripple pattern. 

Though this ripple pattern has a central "bump," the entire 
pattern is of constant height, or "amplitude." The trick here is 
to modify the algorithm so that it more nearly reflects the 
ripple patterns found in nature. That is, we add the central 
splash of infinite amplitude and cause the ripples to diminish 
progressively at increasing distances from the center of the 
splash. : 

When you RUN the program, it displays a menu with 
options that produce graphic displays showing three versions 
of the ripple pattern. An additional menu option produces a 
graph of the hyperbolic spike that gives the ripples their 
splash. 


Starting With The Basics 

Software that generates three-dimensional computer graphics 
must keep track of foreground and background elements. The 
solution we use here is to draw from the bottom to the top of 
the computer screen and to suppress portions of the 
background whenever they fall "behind" previously drawn 
sections. 

Ripples draws 29 horizontal baselines from left to right, 
moving up the screen after completing each one. Each 
horizontal line moves up and down as it goes across the 
Screen to indicate the contours of the surface it is drawing. 

Each baseline contains 320 horizontal plot positions. At 
each plot position, the program calculates a vertical offset 
that places the point to be drawn above, below, or on the 
baseline. 


center of the screen. 
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Photo 1. The basic ripple pattern. Note 
that all of the ripples are of constant 
amplitude, including the central bump. This 
pattern results from plotting the cosine of 
the distance from each plot position to the 


Photo 2. The hyperbolic spike. The 
central spike of infinite amplitude rises 
from a surface that is essentially flat 
except at points close to the center. This 
pattern is the result of plotting the 
reciprocal of the distance from each plot 
position to the center of the screen. 


An array called MAP() contains the height of the 
highest point drawn at each horizontal plot position. At each 
new plot position, the program compares the height of the 
point about to be drawn with the height stored in the 
corresponding element of the array. 

Thus, the program determines whether the new point is 
above, on, or below an existing point at the same horizontal 
plot position. If the new point is below an existing line, the 
program draws along the existing line until the new line 
emerges from "behind" it. | 

If a line goes off the top or bottom of the screen, the 


program draws to and along the edge of the screen until the 


line is again within the screen's boundaries. 


Spiking It Up 

The algorithm that generates the basic ripple pattern 
determines the distance to the center of the screen from each 
horizontal plot position with the aid of the Distance Formula, 
D=SQR((X-—X0)42+(Y-Y0)42). It then plots a wavy line 
having the equation Y=COS(D) along each horizontal 
baseline, as shown in Photo 1. 

How can we modify this ripple pattern to include the central 
splash? Seeing that using this algorithm to plot the cosine 
function gives a sine wave ripple pattern, one might reason 
that similarly plotting a hyperbola would produce a 
three-dimensional spike rising from a plane. This is in fact 
what happens, as you see from Photo 2. The equation of this 
hyperbola is Y=1/D. 

Because the size of the ripples diminshes as the distance 
from the center increases, the amplitude of an actual wave is 
inversely proportional to the distance from the center. Thus, 
simply multiplying the function for the wavy line 
Y=COS(D), by the function for the hyperbola Y=1/D, and 
plotting the resulting function Y=COS(D)/D, we obtain the 
result seen in Photo 3. 

Because a square wave is composed of several sine-wave 


components, a further modification produces squared-off 


ripples. This effect, as shown in Photo 4, is the result of 
adding together the proper sine-wave components before 
multiplying by the mathematical function that generates the 
hyperbola. 


SS The trick here is to 
modify the algorithm so that it 
more nearly reflects the 
ripple patterns found in nature.2? 


The Atari Text Window 

Atari's high-resolution graphics mode 8 has a 4-line text 
window at the bottom. Using the statement GRAPHICS 
8+16 turns off the text window. GRAPHICS 8+32 opens 
the text window without clearing the screen, and GRAPHICS 
$+48 closes the text window without clearing the screen. 
These statements enable you to flexibly insert and remove text 
with the high-resolution graphics screen. HC] 


This chart illustrates the algorithm that draws the screen. 
_ At each point on a horizontal baseline, the program 
determines the distance D to the point A. It then calculates 
a vertical offset from the baseline using COS(D)/D. At 
C1, a positive offset places the point to be plotted at C2. 


Line Nos. Ripples 


100-160 Program header 

170-180 Initialize constants 

190-210 Menu 

220 Get keystroke 

230-240 Set up graphics screen and loops 
250-290 Determine function value 

300-350 Plot points; wait for keystroke 
360-370 Get input, branch to beginning or end 


Photo 3. The ripple pattern with central 
splash. The amplitude of the central bump 
approaches infinity, while the ripples 
diminish in size at increasing distances from 
the center. This pattern is the result of 
plotting the cosine of the distance to the 
center of the screen at each plot position 


Photo 4. The ripple pattern with splash 
and squared-off ripples. This pattern is 
similar to the previous one except that 

instead of using a sine wave to generate 
the ripples, the program uses an 
approximation of a square wave. 


MAX( ) = Array containing height of highest point plotted at each horizontal 
plot position; A = ATASCII value of character input; XO = X-coordinate of 
center of screen; YO = Y-coordinate of center of screen; X = Horizontal plot 
position and loop counter; Y = Vertical position of each baseline and loop 
counter; D = Distance to center of screen; F = Vertical offset of point to be 
plotted from its baseline; P = Actual Y-coordinate of each point plotted 


100 FORO OK KKK 

110 * RIPPLES x 

120 FORO OR OOK aK 

130 COPYRIGHT 1986 

140 HOME COMPUTING JOURNAL 

150 VERSION 1.0 

160 ATARI BASIC FOR THE 800, 800XL, 130XE 

170 >X0=159: YO=95:DS=0.175:SS=0.0833:PS=12: PM= 
191: A0=0:A3=3:A5=5:A7=7:A49=49:A50=50:A51=51:A52=5 

e:Po=0, 3930 . 

180 P5=0.2:P7=0.143:QS-0.0603 

190 DIM MAP(320):GRAPHICS 0:PRINT CHR$(125):PRINT 
>PRINT "“RIPPLES":PRINT : PRINT :PRINT “1 RIPPLES W: 
ITHOUT SPLASH" 

200 PRINT :PRINT “2 HYPERBOLIC SPIKE":PRINT :PRIN 

T "3 RIPPLES WITH SPLASH": PRINT 

210 PRINT "4 SQUARE RIPPLES WITH SPLASH":PRINT :P 

RINT “SELECT ONE": OPEN #1,4,0, "K:" 

220 GET #1,A:IF A<49 OR A>52 THEN 220 

230 CLOSE #1:GRAPHICS 8+16:SETCOLOR 1,0,0:SETCOLOR 
2,0,14:COLOR 1:POKE 752,1:FOR X=0 TO 319:MAP(X)=1 


99:NEXT X 


240 FOR Y=179 TO 11 STEP -6:FOR X=0 TO 319:D=DS*SQ 
R( (XO-X) *(XO-X)+(YO-Y)x*(YO-Y)) 

250 IF A=A49 THEN F=COS(D):GOTO 290 

260 IF A=A50 THEN F=1/(SS*(D+(D=0))):GOTO 290 

270 IF A=A51 THEN F=COS(D)/(SS*(D+(D=0))):GOTO 290 
280 F=(COS(D)-P3*COS(A3%*D)+P5*COS(A5xD) -P7*COS (A7* 
D))/(Q5*(D+(D=0) )) : : 
290 P=Y-PS*F: IF P>PM THEN P=PM 

300 IF P<AO THEN P=A0 


310 IF P<MAP(X) THEN MAP(X)=P:GOTO 330 


320 P=MAP(X) 
330 IF X=AO THEN PLOT X,P 
340 DRAWTO X,P:NEXT X:NEXT Y:OPEN #1,4,0,"K:":GET 


#1,A:CLOSE #1:GRAPHICS 8+32 


350 OPEN #1,4,0,"K:":PRINT :PRINT “CONTINUE - (Y/N 
)?";:GET #1,A:CLOSE #1:IF A=89 OR A=121 THEN 170 
360 IF A=78 OR A=110 THEN GRAPHICS 8+48:OPEN #1,4, 
O,°K:":GET #1,A:CLOSE #1:END 

370 GOTO 350 


anu 


pet 


‘\\, 
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C-64 BASID Synthesizer 


Here iis! A complete sound synthesizer 
on the C-64—using the sounds of SID 


you can turn your Commodore 64 into a 3-voice, 

6-octave, polyphonic synthesizer. This program is 
easy to use and understand. Simply by moving an arrow around 
on the screen, you can modify all the sound parameters to your 
liking. And with the program's special play routine, you are 
free from the usual response lag associated with ordinary 
BASIC. | | 


BASID 

As the name implies, BASID Synthesizer is written in 
~BASID—a BASIC extension that adds sound commands to 
your Commodore 64. In order for the BASID Synthesizer to 
work, you must RUN BASID's BASIC loader prior to entering 
or RUNing the BASID Synthesizer. [Note: We provide both 
programs on your accompanying HC Journal diskette. If you 
would like to learn more about BASID's commands for use in 
Ne 8 res programs, see Home Computer Magazine Vol. 5, No. 

d 


' , ] ith the program presented here, BASID Synthesizer, 


The Keyboard 

The BASID Synthesizer is very easy to use. The two upper 
_ rows of the computer's keyboard make up the synthesizer's 
musical keyboard. (See Figure 1 for a keyboard layout chart.) 
You may notice the similarities 
between this layout and the layout 
of a conventional piano. This set up 
is also compatible with the plastic 
keyboard overlay, The Incredible 
Musical Keyboard, from Sight & | 
Sound Music Software, Inc., 3200.S. _ 
166th P.O. Box 27, New Berlin, Wi 
53151. To play, simply turn up the — 
sound on your TV or monitor and 
start pressing keys (tickling the 
plastic). Up to three notes can be. 
played at once. 

When you first RUN the BASID | 
Synthesizer, your keyboard 
encompasses octaves 2 and 3 
(immediately below middle C). To 
move your keyboard down an 
octave, tap the < key. The > key 
moves the keyboard up an octave. 
To jump two octaves, hold down the “ig 
[SHIFT] key. To keep the keyboard 
two octaves higher than normal, use the [SHIFT LOCK] key. 
By manipulating the <, >, and [SHIFT] keys, you can play 
between octaves 1 and 6. 


The Control Panel 

The screen is your control panel. Here you have all the 
“switches and knobs" necessary to shape the sound that is 
output by your synthesizer (see Photo). To flip the switches 
and push the knobs, you must plug a joystick into Control 
Pott-2Z. 

Near the middle of the screen is a black arrow. You can 
move this arrow using the joystick. Now, to change a setting 
such as the volume, simply move the arrow to the desired 
- volume setting and press the fire button. Immediately, the 
volume control knob moves to its new position. To turn a 

switch on or off, point the arrow at the desired switch and 
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Here is your Sat eakzal's control panel. To change a 
_setting, simply point the arrow at the desired setting and 


press the fire button. A hollow circle designates a switch that 
is off, while a glowing green dot designates a switch that is 
on. 

The control panel allows you to tweak almost every 
SID-chip function—Volume, Envelope, Waveform, Pulse 
Width, Filters, Resonance, Cut-Off, Ring Modulation, and 
Synchronization. When using some of these functions, you 
should remember certain rules: Pulse Width is only effective 
when you are using a pulse waveform. The Filters switch must 
be on for any of the filter controls such as LO, BAN, HI, 
Cut-Off, or Resonance to be active. And finally, Ring 
Modulation works mies when you are using a — 
waveform. 

As you play notes on the keyboard, you may notice the 
black arrow moving all by itself on the screen. This happens 
because the joystick is wired into the same matrix as the 


keyboard, and certain key combinations can produce the same 


results as moving the joystick. 


Sample Sound Settings 

Figure 2 provides a diagram of BASID Synthesizer' s control 
panel. Notice that this diagram is complete, except for the 
knobs. The knobs have been left out so that you can draw 
them in to ate a record of your favorite sound settings 
(patches). You should reproduce this 
diagram so you have several copies. 
We have also provided you with 
three of our favorites settings that 
you can mimic—Patch 1, Patch 2, 
and Patch 3. Simply set your knobs 
to the same positions shown in 
these patches and you're ready to go. 


Making It Work 

This program uses’ two 
machine-language routines. The first 
routine reads the joystick port and. 
moves the black arrow accordingly. 
Here, the main reason for using 
machine language is speed—from 
BASIC, the same process is much 
too slow. Once you've pressed the 
fire button on the joystick, this 
machine-language routine returns to 
BASIC with the current X and Y 
coordinates of the black arrow (a 
sprite) placed in memory locations 782 and 781, respectively. 
The program uses these coordinates to determine which of the 
synthesizer controls to change. The data for this routine is in 
line numbers 1810-2090. This routine is stored in memory at 
50629 ($C5C5) to 50852 ($C6A4). 

The program uses the second machine-language routine to 
convert keypresses into sound. When it detects a keypress, the 


routine sets the frequency corresponding to that key and then 


turns on the sound. This routine can read up to three separate 
keys at once. For instantaneous response, this 
machine-language routine is interrupt-driven—it is executed 


every 60th of a second. The data for this play routine is 


located in program lines 2140-2330. This routine is stored in 
memory at 51200 ($C800) to 51346 ($C892). 

While looking through the program listing, you might 
notice several SYS 65520s. This statement calls a ROM 


au utenatatetatats ata’ n a 
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BASID  Synthesizer's 
Keyboard Layout 


| Figure 1. 
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routine that positions the cursor. It looks for the X and Y 
coordinates of the new cursor position in memory locations 
781 and 782. Remember, these are the same memory locations 


to which our joystick routine returns the screen position of 
the black arrow. Now, after we return from the joystick 
routine, a SYS 65520 will position the cursor at the very 
location that the arrow is pointing. This comes in very handy 
when updating the various control knobs and switches. HC] 
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SID Synthesizer 
KEY FUNCTION 
< | Move keyboard down one octave 
> Move keyboard up one octave 
SHIFT Move keyboard up two octaves while pressed 
SHIFT LOCK Hold keyboard up two octaves 
JOYSTICK Move arrow 


FIRE BUTTON Change a control panel setting 
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BASID Synthesizer 
Line Nos. 


100-160 Program header 


|Figure 2. 


mNedarod 


170-200 
210-240 
250-260 
270-290 
300-320 
330-350 
360-380 
390-410 
420-440 
450-470 
480-500 
510-680 


Initialize program 
Main control loop 
Adjust Volume 
Adjust Attack 
Adjust Decay 
Adjust Sustain 
Adjust Release 
Adjust Pulse Width 
Change Waveform 
Adjust Resonance 
Adjust Cut-Off 
Turn on/off Filters 


690-740 
750-810 
820-980 
990-1070 
1080-1150 
1160-1240 
1250-1760 
1770-2330 
2340-2490 


Turn on/off Ring Modulation 

Turn on/off Synchronization 

Initialize variables 

Set up musical keyboard table 

Set up frequency table 

Define sprite (black arrow) 

Draw control panel 

Store machine-language DATA 
Disable RUN/STOP RESTORE keys 


The key variables in the BASID Synthesizer program are: OP = Current SID 
chip function being altered; SC( , ) = Important screen positions; X = 
Horizontal position of black arrow (0-39); Y = Vertical position of black arrow 
(0-24); SP = Pointer to video chip registers that control the sprite (the black 


arrow); V = Voice (1-3). 
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BM Menu Wlagic 


Journey with us into the deep, dark secret world 
of the computer programmer—as we uncover the mystery 
of creating versatile pull-down menus. 


advanced perhaps even faster than hardware. You can use Menu Magic to experiment with your own 
Programming techniques previously reserved for the menus. You can alter the titles, the options within the menu, 
"big" minis and mainframes are finding their way down to the the number of options, and the width of the menu window. All 
microcomputer. of these changes are possible with simple modifications to the 
One such technique gaining rapid acceptance and popularity DATA statements. The routine accepts data for up to 10 
involves placing program options within pull-down menus. options per window, each option name can be up to 20 
These menus appear on the screen, allow you to make a_ characters wide. 
selection, and then return the underlying screen back to its The data for the menus in this example are contained in 
original state (graphics and all). lines 900 through 950. Each line of 
The program listing on the data specifies one menu window. 
opposite page demonstrates this Line 900 specifies the ITEM 
pull-down technique and how it can window. The first data on the line is 
be added to a BASIC program. You the word ITEM—the title of the 
can modularize most of the code in menu. The program is currently set 
this program into subroutines and up to handle 4 characters in the 
merge them into your own, or title. For larger titles, you need to 
simply take the program as make some minor modifications to. 
presented here and expand upon it. expand the INV.HEAD array, 
In Menu Magic, we set up 5 menus which contains the inverse image of 
that you can pull down from a menu the title. 
bar at the top of the screen. Use the The next two numeric values 
left and right cursor keys to move specify the X and Y coordinates of 
from one menu window to the next. the upper-left corner of the menu; in 
Each time one of these windows this case, X=5, Y=3. The second set 
appears, the title of the current menu of numeric values specify the width 
reverses colors. of ‘the menu window in characters, 
The top item in the new menu In the picture above, the SET UP menu is selected. Ifa and the number of options in the 
being displayed also appears with different menu is chosen, the program restores any window; in this case WIDTH=11, 
inverse Bate highlighting that graphics behind the menu being closed. ie Fagg 
option. To make another selection, The rest of the data on line 900. 
use the up and down cursor keys to liom eo ee cron Format contains the text of the options. 
highlight a different option. Once { : Monaiie 0 Take care that the text is not longer 
your option is highlighted, press t coardinats of upper-left corner than the width of the window, or it 
[ENTER]. Y coordinate of upper-left corner will be chopped off in the resulting 
Only one menu has "logic" Width of the window in characters display. A total of 10 parameter 
actively connected to it. This is the Ag in the menu positions for window options must 
EXIT menu, which provides two Menu option 2 appear in the DATA statement. We 
options—REDO and EXIT. As you Menu option 3 fill out unused positions at the end 
pull this menu down, the word Menu option 4 of the statement by adding commas. 


A s the home computer industry has matured, software has Menu Minuets 


NROWM4OOCDNMOMAWN 


REDO is highlighted. If you press Pou opioné An easy way to know whether you 
[ENTER] now, the program re-runs 1 Menu option 7 have enough commas is to count all 
itself. If you select EXIT, the 1 Menu option 8 of the commas in the entire line: 
program halts, printing an exit eo ei AS Each DATA statement should 


message. contain a total of 14 commas. yoy 


Menu 
Line Nos. Explanation 
100-210 Program header 
220-230 Title screen 

240-400 Main control loop 
410-490 Initialization routine 
500-560 Store menus in arrays 


HEADS$() = Text for menu titles; WINTEXT$(, ) = Options text for each 
menu; K$ = Key pressed; INV.HEAD( ) = Color block used to inverse menu 
title; INV.TEXT() = Color block used to inverse options; 
ST.WINDOW.1() = Graphics under menu #1; ST.WINDOW.2() = 
Graphics under menu #2; ST.WINDOW.3() = Graphics under menu #3; 


ST.WINDOW.4{) = Graphics under menu #4; ST.WINDOW.5() = 
Graphics under menu #5; WINDOW.1() = Menu #1 image; 
WINDOW.2() = Menu #2 image; WINDOW.3() = Menu #3 image; 
WINDOW.4() = Menu #4. image; WINDOW.5() = Menu #5 image; 
WINDOWS(, ) = Menu parameters; ARRAY.SIZE = Used to dimension 
arrays; X = Current menu number; Y= Current option number in window. 


570-640 Store graphics under a window 

650-710 Place window on the screen 

720-780 Replace graphics over window 

790-810 Reverse text characters 

820-830 Key scan routine 

840-890 Set array sizes depending on the sizes of the windows 
900-950 Window data 
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LOO 7% KKK ROK KKK KOK 

110 ’ * MENU MAGIC *x 

120 7 OOK OK IOK OK 

130 ’ COPYRIGHT 1986 

140 ’ HOME COMPUTING JOURNAL 

L650 ” VERSPON-7 0 

160 ° DOS 4. 1--and-erther 

170.” IBM PC32 with Cartridge BASIC or 
180.” [TBM-Po with BASILICA and 

190 ’ COLOR/GRAPHICS ADAPTER and 
200° * “COLOR “MONTTOR or 

210 ’ TANDY 1000 with GW BASIC 


~2e0 RANDOM Ze TIMER: CLS: KEY OFF: SCREEN 1: LOCATE 12 


»12: PRINT “*x** MENU MAGIC **x": GOTO 420 

230 GOSUB 250:IF DONE THEN CLS:END ELSE GOTO 220 
240 ’ MAIN CONTROL ROUTINE . 

2a0 Clo trOR X=) FO S« LOCATE 1,.X*5 PRINT “HEADS(X);: 
NEXT 


260 RANDOMIZE TIMER: R1=RND*20+5:R2=RND*20+5:R3=RND | 


e500 EO: FOR Zee “TO 199. STEP:..5 

210-GINE (160451 N(21/R1)%100,21)-(ABS(COS{ ZI ZR ) ) * 
319,51IN(21/R2)*80+100) , 2: NEXT 

280. X=1:GOSUB 810:GOSUB 580: GOSUB 660:¥e1:GOSUB 80 
0 

290 GOSUB 830: IF LEN(K$)=2 THEN K$=RIGHT$(K$,1):GO 
Te 210 

300 IF K$=5CHR$(13) AND X=4 THEN 400 ELSE IF K$=CHR 
$(27) THEN. CLS: PRINT “THAT'S ALL FOLKS. ..0°s END BLS 
E GOTO 290 

310 TS KSaM" -THEN.320:- ELSEIF -KS="K.-TMEN 340 ELS 
i 2S: Kos oP" THEN 360: ELS@ ER Rge°R" TREN oso. ELSE 

290 

320: GOSUB 730: GOSUR. 810 .X=X+):18 X>S THEN e) 

330 GOSUB 810:GOSUB 580:GOSUB 660:Y=1:GOSUB 800:GO 
TO 290 

340 GOSUP../304 GOSUR 810: X=X-1: 1h xe] TREN Xs5 

350 GOSUB 810:GOSUB 580:GOSUB 660:Y=1:GOSUB 800:GO 
TOS290 

360 GOSUB 800:Y=Y+1:IF Y>WINDOWS(X,4) THEN Y=1 

370 GOSUB 800:GOTO 290 

380 GOSUB 800: Y=Y-1:IF Y<1 THEN Y=WINDOWS(X, 4) 

390 GOSUB 800:GOTO 290 

400°1F Y=] THEN RUN ELSE IF Y=2 THEN CLS:PRIN? ER 
XIT’ CHOSEN... PROGRAM ABORTED": END 

410 * INITIALIZATION ROUTINE 

420° LOCATE: 22; Li PRINT.“INITIALTIZING.:. . UrCLEAR* DEFI 
NT A-Z 

430 DIM WINDOWS(5,4),WINTEXT$(5,10),HEAD$(5):FOR X 
=1 TO 5:READ HEAD$(X):FOR Y=1 TO 4:READ WINDOWS(X, 
Y):NEXT: FOR Y=1 TO 10:READ WINTEXTS$(X,Y):NEXT: NEXT 


440 DEF FNPX(C)=(C-1)*8+1 

450 FOR X=1 TO 5: ARRAY.SIZE=INT(4+INT( (2*( WINDOWS ( 

X,4)*8+3)+7)/8)*(WINDOWS(X,3)*8+3)/2)+1:ON X GOSUB 
850, 860,870,880, 890: NEXT 

460 FOR X=1 TO 5:CLS:LINE( FNPX(WINDOWS(X,1))-3, FNP 

X( WINDOWS (X, 2) )-3)-(FNPX(WINDOWS(X,1)+WINDOWS(X, 3) 
-1)+7,FNPX(WINDOWS(X,2)+WINDOWS(X,4)-1)+7),3,B 

470 FOR Y=1 TO WINDOWS(X,4):LOCATE WINDOWS(X,2)+Y- 
1,WINDOWS(X,1):PRINT WINTEXTS$(X,Y):NEXT:GOSUB 510 

480 NEXT: DIM INV.HEAD( 40), INV. TEXT(220) 


a90 GINE Yi00, 100)-(150,120),3,BF:GET (100, 100)-¢1 


33,107), INV.HEAD: GOTO 230 

S00 ’ GET MENU WINDOWS 

p1O-ORe Xk Covers ro 530,540, 550,560 

520 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
)- (FNPX( WINDOWS (X,1)+WINDOWS(X,3)-1)+7,FNPX (WINDOW 
S(X,2)+WINDOWS(X,4)-1)+7),WINDOW. 1: RETURN 

530 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 


)- (FNPX (WINDOWS (X, 1)+WINDOWS(X, 3)-1)+7, FNPX(WINDOW 


S(X,2)+WINDOWS(X,4)-1)+7),WINDOW. 2: RETURN 
540 GET (FNPX(WINDOWS(X,1))-3, FNPX(WINDOWS(X,2))-3 
)- (FNPX( WINDOWS (X,1)+WINDOWS(X,3)-1)+7,FNPX( WINDOW 
S(X,2)+WINDOWS(X,4)-1)+7),WINDOW. 3: RETURN 
950 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
)- (FNPX (WINDOWS (X, 1)+WINDOWS(X,3)-1)+7, FNPX(WINDOW 
9(X,2)+WINDOWS(X,4)-1)+7),WINDOW. 4: RETURN 
560 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 


)- (FNPX (WINDOWS (X,1)+WINDOWS(X,3)-1)+7,FNPX(WINDOW 


S(X,2)+WINDOWS(X,4)-1)+7),WINDOW. 5: RETURN 


570 ’ GET GRAPHICS UNDER A WINDOW 

580 ON X GOTO 590,600,610, 620,630 

990 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
)- (FNPX (WINDOWS (X,1)+WINDOWS(X,3)-1)+7,FNPX( WINDOW 
S(X,2)+WINDOWS(X,4)-1)+7),ST.WINDOW.1:GOSUB 640:RE 
TURN 

600 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
)- (FNPX(WINDOWS (X, 1)+WINDOWS(X,3)-1)+7,FNPX(WINDOW 
S(X,2)+WINDOWS(X,4)-1)+7),ST.WINDOW.2:GOSUB 640:RE 
TURN 

610 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
)- (FNPX (WINDOWS (X, 1)+WINDOWS(X,3)-1)+7, FNPX (WINDOW 
S(X,2)+WINDOWS(X,4)-1)+7),ST.WINDOW.3:GOSUB 640:RE 
TURN 

620 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 


_)-(FNPX (WINDOWS (X,1)+WINDOWS(X,3)-1)+7,FNPX( WINDOW 


S(X,2)+WINDOWS(X,4)-1)+7),ST.WINDOW.4:GOSUB 640:RE 
TURN 

630 GET (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
)~ (FNPX (WINDOWS (X, 1)+WINDOWS(X,3)-1)+7,FNPX(WINDOW 
5(X,2)+WINDOWS(X,4)-1)+7),ST.WINDOW.5:GOSUB 640:RE 
TURN 

640 LINE (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X, 2))- 
3)-(FNPX(WINDOWS(X,1)+WINDOWS(X, 3)-1)+7, FNPX(WINDO 
WS(X,2))+7),3,BF:GET (FNPX(WINDOWS(X,1))-3,FNPX(WI 
NDOWS (X, 2) )-3)- (FNPX(WINDOWS(X,1)+WINDOWS(X,3)-1)+ 
5, FNPX(WINDOWS(X,2))+5), INV. TEXT: RETURN 

650 ’ PUT MENU WINDOW ON THE SCREEN 

660 ON X GOTO 670,680,690,700,710 

670 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), WINDOW. 1, PSET: RETURN 

680 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), WINDOW. 2, PSET: RETURN 

690 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), WINDOW. 3, PSET: RETURN 

700 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), WINDOW. 4, PSET: RETURN 

710 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), WINDOW. 5, PSET: RETURN 

720 ' PUT GRAPHICS BACK ON SCREEN 

730 ON X GOTO 740,750,760, 770 780 
740 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), ST.WINDOW. 1, PSET: RETURN 

750 PUT (FNPX(WINDOWS(X,1))-3, FNPX(WINDOWS(X,2))-3 
), ST. WINDOW. 2, PSET: RETURN 

760 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3— 
), ST.WINDOW. 3, PSET: RETURN 

770 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), ST. WINDOW. 4, PSET: RETURN 

780 PUT (FNPX(WINDOWS(X,1))-3,FNPX(WINDOWS(X,2))-3 
), ST. WINDOW. 5, PSET: RETURN 

790 ’ INVERSE CHARACTER ROUTINES 


- 800 PUT(FNPX(WINDOWS(X,1))-2, FNPX(WINDOWS(X,2))-2+ 


(Y-1)*8), INV. TEXT: RETURN 

810 PUT(FNPX(WINDOWS(X,1))-2,0), INV. HEAD: RETURN 
620 KEY SCAN 

830 K$="":WHILE K$="":KS$=INKEYS: WEND: RETURN 

840 ’ SET ARRAY SIZES 

850 DIM WINDOW. 1(ARRAY.SIZE),ST.WINDOW.1(ARRAY. SIZ 
BK) : RETURN 

860 DIM WINDOW. 2(ARRAY.SIZE),ST.WINDOW. 2(ARRAY.SI1Z 
EK): RETURN 

870 DIM WINDOW. 3(ARRAY.SIZE),ST.WINDOW. 3( ARRAY. SIZ 
E) : RETURN 

880 DIM WINDOW. 4(ARRAY.SIZE),ST.WINDOW.4(ARRAY.SIZ | 
EK) : RETURN 

890 DIM WINDOW. 5(ARRAY.SIZE),ST.WINDOW. 5( ARRAY.S12Z 
E) + RETURN 

900 ’ PROGRAM DATA FOR WINDOWS 

910 DATA ITEM,5,3,11,3,ORDER ENTRY, INVENTORY, PAYRO 
bide VP ae 

920 DATA CASH,10,3,19,4,ACCOUNTS PAYABLE, ACCOUNTS 
RECEIVABLE,GENERAL LEDGER,SYSTEM SECURITY,,,,,, 


_ 930 DATA PROG,15,3,10,10," PROGRAM 1",*PROGRAM 2," 


PROGRAM 3"," PROGRAM 4",*PROGRAM 5,*PROGRAM 6," P 
ROGRAM 7", “ PROGRAM 8"," PROGRAM 9", PROGRAM A" 
SHO0S DATA BALT 207 344 ,2;REDO, EXIT) 3, 275 24 
950 DATA PAGE, 25,3,10,8,SET UP,OPEN PAGE,CLOSE PAG 
E,PRINT PAGE,SAVE PAGE,MOVE PAGE,EDIT PAGE, PURGE P 
AGE» 
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HC fournal FOCUS OCUS : 


a FLASHLIGET 


: Put the spotlight on your TI-99/4A computer 
sit discover some "hidden" uses for Extended BASIC's sprite graphics. 


from the bed, you reach for the flashlight located on 

L. your nightstand. Suddenly, you remember the attack dog 
given to you by your mother at Christmas. He is in your 
room! You do not dare take another step unless you know 
exactly where your foot will land. Carefully you turn on the 
flashlight, hoping to locate the room's light switch. You 
think to yourself: "If I can find the light switch, I can turn on 
the light. If I can turn on the light, I can see the dog. And if I 
can see the dog, I can get out of the room and feed my 
grumbling stomach. Now, where is that light switch?" 
Fortunately, you find the switch and are able to feed both 
yourself and your dog. Once again, another life-threatening 
situation is safely averted. | 


Yi wake up hungry, in search of food. Stepping away 


Discovering Hidden Objects 

The scenario may differ, but the purpose is often the 
same—find the hidden object. Many computer games employ 
this principle. Such games present buried treasure for you to 
discover or hidden bombs that you must defuse before they 
explode. In the example above, the hidden object is a light 
switch, 

Maybe you have considered writing a similar program 
yourself. Something that would challenge the player to find 
certain objects that are hidden on the screen. Well, there is an 
easy and impressive way to reveal hidden 
objects using Extended BASIC'’s sprites. The 
program presented here, Flashlight 
illustrates this technique. 


A Flash In The Dark 

Flashlight (listed on the opposing page) 
uses the same basic scenario as_ the 
introductory paragraph. Your task is to find 
the light switch with the aid of a flashlight. 
Once it's found, you can turn on the light. 
When you first RUN this program, your 
flashlight beam appears in the middle of the 
screen. Using the S, D, E, and X keys you 
can move your flashlight left, right, up, and 
down, respectively. Once you have found 
the light switch, pressing O will turn the 
light on. The flashlight beam must be 
shining directly on the light switch for the 
O key to be able to turn the light on. 

While searching the room, you ‘may discover other hidden 
objects. Notice how these objects are revealed. As with a real 
flashlight, you see that part of the object where the flashlight 
is aimed. Sprites hold the key to the smooth unveiling of 
objects that can really add life to a graphic display. 


How It Works 

Hiding an object is easy Hanae S Say we have ‘defined a 
sprite in the shape of a light switch. To hide it on the screen, 
_ simply set the sprite's color to that of the screen. Now, when 
the light switch is placed onto the screen, it's invisible. In 
Flashlight, both the screen and all the hidden objects are 
colored black. 

To reveal objects, this program uses an all too often 
overlooked feature of Extended BASIC'’s sprite graphics—sprite 
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Here you can see the flashlight shining on 
the head of the vicious attack dog. 


Figure 1. 


Sprites shown 
on top of each other 


et 


SPRITE #5 has priority over (it Is shown on top of) SPRITE #6. 
The lower the sprite’s number, the higher Its priority. 


Sprites shown 
on black screen 


SPRITE #5: Viclous dog 
Color Is black to blend In with black screen 


SPRITE #6: Flashlight beam 
Color is yellow to contrast against black objects 


priority. A  sprite’s priority determines 
whether it is displayed on top of, or 
underneath other sprites. When two sprites 
coincide, the sprite with the highest 
priority comes out on top. The priority of a 
Sprite is determined by the sprite's 
number—the lower the number, the higher 
the priority. So, SPRITE #1 has the 
highest priority possible, while SPRITE 
#28 has the lowest. 

To reveal objects, we give the flashlight 
beam the lowest priority of all the other 
sprites on the screen. Now, when the 
yellow flashlight beam comes in contact 
with other sprites, it moves under them, 
providing a more illuminating background. 

Figure 1 illustrates this method of 
revealing sprites. Here, we show how the 
flashlight beam sprite is covered by the 
vicious dog sprite. A second picture shows 
the two sprites overlapping on a blackened screen. Notice that 
the only part of the dog that is visible is the part with the 
flashlight beam on it. Because the flashlight beam is yellow, 
it contrasts against black objects. 

To emphasize the sprites, this program uses sprite 
magnification 4. Line 220 of Flashlight initiates this with the 
command CALL MAGNIFY(4). This command enlarges all 
sprites to 4 times their normal size. Because of this, it now 
takes 4 characters (instead of one) to define a sprite's shape. 
The sprite shape data is held in the DATA ‘statements located 
at the end of the program. 

When you first turn on the light, you may, notice the light 
bulb flicker a bit before actually turning on. We can add this 
touch of realism fairly easily by alternating the light-bulb 
sprite’s color from black to dark yellow very quickly. Before 


) 4) 
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66 Sprites hold the key 


to the smooth unveiling of hidden 
objects that can really add life 


the light is actually turned on, our light bulb returns to its 
original color of black. 

To turn on the light, all we have to do is change the 
screen's color from black to yellow with the CALL 
SCREEN(12) command. Because all the hidden sprites are 
black, they become clearly visible against their new yellow 
background. The flashlight beam, however, is now invisible 
as it should be. It is not until you turn the light off that the 
flashlight beam becomes visible again. 


Other Uses 


The technique shown here is not limited to revealing hidden 
objects. How about using a sprite as a window? Other sprites 
that pass through the window will appear as objects passing 
by outside the window. How about covering one sprite with 
several others so that the covered sprite is only visible on 
certain sections of the screen? There are many great uses for 
sprites. Try some and see. 


310-360 
310 


Flashlight 
Program header 
Initialize variables 
Initialize screen 
Redefine characters 
Initialize sprites 
Magnify sprites 
Reset flashlight movement 
Move flashlight 
Read keyboard 
Branch according to key pressed 
"S” pressed—move left 
"D" pressed—move right 
"E" pressed—move up 
"X" pressed—move down 
"O" pressed—turn on or off light 
Is switch on? 
Is flashlight shining on switch 
Toggle switch and flicker light 
Turn on light 
Toggle switch and turn off light 
Sprite data for flashlight beam 
Sprite data for vicious dog 
Sprite data for "BEWARE..." sign 
Sprite data for light bulb 
Sprite data for light switch 


HCJ 


K$ = String of legal keypresses ("SDEXO"); SWITCH = Condition of light 
switch (O=switch is off, 1=switch is on); Y = Row velocity of flashlight beam; X 
= Column velocity of flashlight beam; C = Flag to detect if the flashlight is 
shining on the light switch? (O=no, -1=yes); S$ = Reads character data for 
sprite shapes; K = ASCII of keyboard input; S = Keyboard status; | and J = 

Loop counters 


to a graphic display. 2 


Flashligh 


FUNCTION 

Move flashlight beam left 
Move flashlight beam right 
Move flashlight beam up 
Move flashlight beam down 
Turn on/off light 

Quit program 


100 OO OOOO Os 
110 ! * FLASHLIGHT x 

120 |) OOOO x 

130 ' COPYRIGHT 1984 

140 ! HOME COMPUTING JOURNAL. 
150 ! VERSION 1.0 : 

160 !' TIE EXTENDED BASIC 

170 KS="SDEXO" :: SWITCH=O 

180 CALL CLEAR :: CALL SCREEN(?) 
190 FOR I=40 TO 63 :: READ S# :: 
NEXT I 

200 CALL SPRITE (#1,40, 2,90, 210, #2,56,2,1,110,#3,52 
, 2,40, 55) 

210 CALL SPRITE (#4, 48, 2,40, 25, #5, 44, 2,140, 100,0, 24 
86,40, 12, 100-1000 

220 CALL MAGNIFY (4) 

250 X=O r: Yeo 


240 CALL: MOTION (#4, Y, X) 


CALL CHAR (CL, S#)4: 


200 CALL. KEY-(O,Kk,S) 2:3 -1F S=O) THEN 2350 


260 ON FOS (KS, CHR (EK), 1)+1 GOTO So, 2/0, 200 - 2S 
ALO 

270 XS=25.018> GOTO. 240 

280 X=25 2: GOTO 240 

2OO fo 8 GO TE. 240 

nO Ves ost “SOTO: 240 

mite Te SWLTCH. THEN: 260 

20 CALL. COINC (#1,#6,10,C):: IF C=O. THEN 240 

S30 CALL CHAR (62, "OOEOEOEOGO060E0EO"):: CALL SOUND ¢ 
HO, ~Sy,O)28-FOR I=1 TO 4 s: CALL SPRITE (#2, 56, 2+9x ( 
EOANE tel ge ero tf POR ger TOS 

ROO NEAT. ods ee NEXT <I 

350 CALL SCREEN(12):: SWITCH=1 :: GOTO 240 

oO) CALL” CHAR (62, "OOEOEODEOROG060EO"):: CALL. SOUND ( 
ily an OY) fa CAL SCREEN 2) 32 CALL GPRI TECHS, S6 cate t 4s 


SPOS SWI TCH=0 32 GOTO. 240 


a7) DATA. 01 OF SE SE7EZEPERE  PrPREJE Ze ohOr Ol. SORCRCE 
CREPEFFFE,-FFFFEFEPCECEORO 

280 DATA OOO000306040COCO, 7FSFAFSFZO303800, OOON00O 
OOO 382B3F,FFFOFOFOSO0303000 

390 DATA FFS09CP49E929E80, BOGE SABSABASESOFF ,FFOOEAS 
ACF B7ESOO, OOEOBOEQBOBOOOFF 

400 DATA FFOOBBAABRBLR2A00, OOCEEARAEACEOOFF, FFOLB9A 
TBPeiB9O!l, OIETSIBIALEIOIFE 

410 DATA 3F97020202040408, 9819100804020100, FCE0404 
O4O202010, 1LOOBOB1LO20408000 

420 DATA OO03O030303030303 , OSOZONNONNNNNANO, OOEVEOE 
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TECH N© 


Memory Test 


Often, it's easy to blame the computer for our mistakes. Ninety-nine times out of a hundred, 
however, it is the human, not the machine that is at fault. 

What about that last one percent? What if it really is the computer that is causing the trouble? 
How can you check your computer for possible malfunctions? The most common cause of 
computer failure is bad RAM chips. One bad RAM location can be fatal to a program. Bad RAM is 
also hard to track down. To check for bad RAM, we have created RAMAx, a machine-language 
memory test for the Apple Il family of computers. Apple Ile owners have the luxury of a RAM test 
built into ROM (just press [CONTROL] [CLOSED APPLE] [RESET)), but for the Apple Il, Il+, 
and lic owners, RAMRx can be a 
helpful tool. With RAMRx, you can 
test all RAM residing between 
$0000-$BFFF and bank-switched 
RAM located at $D000-$FFFF. 

To perform a check of memory, 
RUN RAMRx. The program first 
pauses while it stores the machine 
language into memory. After that, 
the testing begins. 

If the program finds a bad memory 
location during the test, the 
computer beeps and displays the 
message "ERR" followed by the 
two-byte hexadecimal address of 
the defunct RAM location. The 
Apple Il computer has two 4K 


100 REM 
110.. REM 
120 . KEM 
£30 ” REM 
140 REM 
150° REM 
160 REM 
LO. eM 
180 HOME PRINT “STORING MACHINE LANGUAGE"; 
[90 POR 1 > 768 TO.2007, READ Die. =:-C +. Diy POKER LT 
(Os PRINT 2. peo NER 2d ee 
200% TF 0 <° >=30801 THEN = HOME. FLASH : 
Bre Cf) 4 2 ERROR IN DATA STATEMENTS 
NORMAL : END 
210 - HOME PRINT “TESTING : PRINT 
NT : PRINT "DONE": END 
wou DATA “169;0;133,26 193; 27,141, 239 3, 32.70 16 
Dre se0l, £02, 208,247;, 109; 208, 133527 ,169,1,441 239, 
spucpiieyeyi a, £89,292 ,373,199,; 398 3? 77, 3,165, 27, 
201,224, 208,247,173 ,1965192;169 208; 133.27, 169,2,14 
41,239)3;532,21253,173,181 992 
eo0. DATA. 173,431,292, 32, 7740,160; 27,208, 249,173, 1 


JK OK KOK OK CK OK OK 

* RAMRX * 

2K KOK OK KOK OK OK OK 

COPYRIGHT. 1986 

HOME COMPUTING JOURNAL 
VERSION 1.0 © 

APPLE. II. FAMILY. APPLESOFT 


"ae 


poierpnonstia 


PRIND<<C 


CALL 768.2. Pai 


90,192,96,165,26,1353,254, 165,227,133 ,255,160,0;,177, 
26,170,165, 26,201, 218; 144;6,32,14%,,9,24, 144,59, 32,2 
18,3 ,230;26, 208,224,230, 27,906,169, 141,32 7237253, 1 
62 1365160; 3,532,598. 219; 173;229,3 | 

240. DATA 32,216,253,169 141,76, 237,253; 66, 65,78, 7 
»,32,0,169,128,145, 26,209, 26,208,7,74,208, 247,138, 
149,26,96,158,145,26,174,239, 3,240,122; 202 -240;6,17 
3,490,192,24,144,3,473,138,192;32,45;255,169,160;3 
2, cor, 200, 108,20, 164, 27 32 cos 

200° DATA 249 168. 141.,32 297; 2034 7h, 2399, 3,240, 16, 
202220530, DIO) 231, 292, 473578, 191 18h. 76, tSe-157, 76 


sections of bank-switched RAM 
located at $D000-$DFFF. To avoid 
confusion between the two, RAMAx 
prints "BANK 1" to the screen while 
testing the first 4K and "BANK 2" 
while testing the second 4K. If you 
want RAMAx's output sent to the 
printer, execute a PR#1 prior to 
entering RUN. 


peod ATO eG, tO1g 2885173 Op de ise 14s 167 86,173 4 


94,170,172,193,170,96, 76,81, 168, 234, 234, 2 There are several different 


methods for testing computer 
memory, but all methods work basically the same way—store a number into RAM and make sure it 
reads back the same. If the number reads back differently, the memory location is bad. This is the 
basic principle behind RAMAx. 

Starting at location $0000, RAMAx works its way up, one memory location at a time, to the top of 
main RAM at $BFFF. Locations $C000-$CFFF consist of I/O registers and ROM, so it is not included 
in the memory test. Locations $D000-$DFFF normally contain ROM, but there are two 4K chunks of 
bank-switched RAM (bank 1 and bank 2) that can be accessed at these same addresses. By using 
the soft switches located at $C080-$CO8F, you can switch this bank-switched RAM in and out of the 
computer's view. RAMAx tests both of these banks. Moving up, there is another 8K section of 
bank-switched RAM hiding behind ROM at $E000-$FFFF. After RAMAx tests this last 8K, its job is 
done. 


ctotatatatatataren 

SeceboceanoPanobaesesssesPeesssteh mene Bee Seteceareess 
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TECH NOTE 


DATA Generator 


There are several methods for 
combining machine language and 
BASIC in the same program. The 
most popular is the use of DATA 
statements. By storing all your 
machine language in BASIC DATA 
statements, you can POKE the 
machine language into memory 
through the use of a simple 
FOR-NEXT loop. Converting your 
-machine-language programs into 
DATA statements, however, is not 
such an easy chore. The short 
listing shown here does this for you. 
This program, DATA Generator, 
converts any machine-language 
program in memory into DATA 


FOO ORK KOK OK KK 

* DATA GENERATOR * 

OOOO OOOO OK OK OK K 

COPYRIGHT 1986 

HOME COMPUTING JOURNAL 

VERSION 1.0 

ATARI] -BASIC FOR THE 800, : 800XL; 130XE 
~eoTRAP 177? CHRS(125): "STARTING MEMORY “LOCATION “ 
;: INPUT START: ? “ENDING MEMORY LOCATION "“;:INPUT E 
ND 
18 TRAP 18:? “STARTING LINE NUMBER °“;: INPUT LINE: ? 
“LINE NUMBER INCREMENT “;: INPUT INCR: TRAP 32768 
ie: POR Teeth) -LO. RND=7.. STBP. 827 -CORECLeS ) 2? 3.9 ab 
NE*+(CL-SPARL) (Ox I NCR; DATA"; <FPOR 2) TO T+7:1R Js 
END: THEN 22 
AN ade ee fh < Shanes peo 
Boke Pe PRG J sic Nid 9): 
Dot oe ts tote GONG 2 POO? LON: 050.7 POKR- B42. 35 3° STOP 
Gori O42 ie NEY bi? -CHRS(1 Sos? s SPOR T=10° Tf 
Cou24s TON Oe On. 642,12" 
Be ce dith ) te ES - POS LT LON O30: 2Pene 640 24.3 


statements using the Atari computer's "RETURN key mode.” 3 

This option enables you to force the computer to read information from the screen. In RETURN 
key mode, it is just as if you were constantly hitting the computer's RETURN key. Any information 
that is on the screen, such as a program line, is evaluated and entered. RETURN key mode can be 
initiated from within a BASIC program, but it is only active from immediate ("READY") mode. 

To initiate RETURN key mode, enter POKE 842,13. By POKEing location 842 with a 13, you 
are telling the computer to read the screen. Try typing this in and see what happens. Interesting, 
isn't it? By the way, you will have to press RESET to regain control. To set things back to normal 
from within a BASIC program, use POKE 842,12. This tells the computer to write to the screen, 
as it normally should. 

DATA Generator creates BASIC DATA statements by printing the desired program line onto the 
screen with the command CONT below it, initiating RETURN key mode, and finally, STOPing the 
program to activate RETURN key mode and enter the program line. When the computer enters the 
CONT command, the program starts up again to finish generating the DATA statements. : 

Using DATA Generator is fairly straightforward. First, LOAD the desired machine 
language-program into memory. Now, LOAD and RUN DATA Generator, enter the starting 
address of the machine-language program, the ending address, the starting line number for the 
DATA statements, the line number increment, and away you go. Once all the DATA statements 
are generated, DATA Generator erases itself from memory and disables RETURN key mode. You 
can now SAVE your DATA statements for use in a BASIC program. A word of caution here: 
Because DATA Generator occupies lines 10-24, do not enter a starting line number that is less than 
25. , 

To merge the DATA statements with another program: LIST the DATA statements to disk 
(i.e., LIST “D:DATA"), LOAD in the desired program; and now ENTER the DATA statements 
back from disk (i.e., ENTER "D:DATA"). 
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TEC 


Keyboard 


POKE 
POKE 
POKE 
POKE 


POKE 
POKE 
POKE 
POKE 


POKE 
POKE 
POKE 
POKE 


Screen 


POKE 
POKE 
POKE 
POKE 


POKE 
POKE 


Miscellaneous 


POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 
POKE 


© 


Popular POKEs 


An important addition to any Commodore 64: hacker's notebook is a list of useful POKEs. Unlike 
many computers, the Commodore 64's operating system is very accessible and easy to play 
around with. Here are just a few POKEs that you should find useful: 


650,128 
650,64 
650,0 


198,0 
649,1 
649,0 
649,10 


657,128 
657,0 

808,239 
808,237 


53280,COLOR 
53281,COLOR 
646,COLOR | 


Function 
All keys repeat 


_No keys repeat 


Return to normal 


Clear keyboard buffer 

Disable keyboard buffering 

Disable keyboard!! 

Returns keyboard buffering to normal 


Disables [SHIFT] [CMD] key combination 
Enables [SHIFT] [CMD] key combination 
Disables [RUN/STOP] key : 


- Enables [RUN/STOP] key 


Function 
Change border color (COLOR=0 to 15) 


Change screen color (COLOR=0 to 15) 
Change text color (COLOR=0 to 15) 


§3265,PEEK(53265) AND 23 Turn screen off 
§3265,PEEK(53265) OR 16 Turnscreenon 


204,0 

204,1 

19,65 

19,0 
56341,SPEED 
53272,21 
53272,23 


54296,15:POKE 54296,0 


775,200 
775,167 
1,0 


Function 

Turn cursor on during a GET 

Turn cursor back off 

Turn off question mark during INPUT 

Turn question mark back on 

Adjust speed of cursor flash (0-fast, 255-slow) 
Set computer in uppercase/graphics mode 
Set computer in lowercase/uppercase mode 
Produce a short click sound 

Disable LIST 

Enable LIST 

Bomb the computer 


The POKE command is a very powerful tool for those who wish to use it. When using the 
POKEs given above, make sure that you enter them correctly. Although you can never damage 
your computer with a POKE, you can "crash" the system, forcing you to turn your computer off 
and back on again to regain control. 
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TECH NOT 


saving Large Arrays Quickly 


Saving arrays one element at a 
time is slow—especially large 
arrays such as those used in IBM 
BASIC graphic applications, where 
an array is used in conjunction with 
GET and PUT (graphics) 
commands. Wouldn't it be nice if 
you could SAVE or LOAD a 
graphics shape or numeric array to 
disk in the blink of an eye? Properly 
employed, the BSAVE and 
BLOAD commands fill the bill 
perfectly. These two commands 
allow large areas of memory to be 
saved to disk and reloaded. 

The secret to using the BSAVE 


100 
110 
120 
130 
140 


7 OOOO AC KOK 
, 
? 
d 
t 
150 * 
d 
’ 
3 
) 
d 


* BSAVE DEMO x 

2K OK OK KK OK 2K ok 2K 2K 2K OK 

COPYRIGHT 1986 

HOME COMPUTING JOURNAL 

VERSION 1.0 

DOS 2.1 and either 

IBM PCjr W/CARTRIDGE BASIC or 

IBM. PC with BASICA and 

COLOR/GRAPHICS ADAPTER and 

COLOR MONITOR or 

210.’ TANDY 1000 with GW BASIC  - 

220 CLS:SCREEN O:WIDTH 80:LOCATE 12,1:PRINT “ENTER 
SIZE OF GRAPHICS WINDOW TO SAVE TO DISK: " 

230 LOCATE 14,1:PRINT "WIDTH: ";: INPUT W$:W=VAL(W$ 
)-1:IF W<l OR W>319 THEN 230 
240 LOCATE 16,1:PRINT “HEIGHT: 
$)-1: IF H<1 OR H>199 THEN 240 : 
250 ARRAY.SIZE=INT( (4+( INT(((W+1)*2+7)/8)*(H4+1)))/ 
ae lt 


160 
170 
180 
190 
200 


">: INPUT H$:H=VAL(H 


and BLOAD commands lies in 
properly managing memory. If you 
don't take care when using this 
procedure in your own program, you 
could easily crash the program or 
lock up the system. Additionally, 
you should only use this procedure 
on numerical arrays; string arrays 
are constantly changing their size 
every time they are used. 

Before you transfer information 


260 DEFINT G:DIM ARRAY(ARRAY.SIZE) : ARRAY(0)=0:SCRE 
GN 17 REY. 1, LOAD SREY 2," GAVE “RAY 3, KEY 4k 
BY:-5, ee KEY ON 

270 Z22=3:GOSUB 280:ZZ=1:GOSUB 280: 22=2:GOSUB 280:G 
OTO -290 

280 FOR Z2=0 TO 6.28 STEP .03:LINE (SIN(Z)*150+155, 
COS (Z)*95+97)-(COS(Z*4+ZZ2+3.14)*75+155, SIN(Z*4+ZZ+ 
3.14)%*48+97),ZZ:NEXT: RETURN 

290 GET (159-INT(W/2),99-INT(H/2) )-(159+INT( (W+1)/ 
2),99+INT( (H+1)/2)),ARRAY: ADDR=VARPTR( ARRAY (0) ) 
300 K$="":WHILE K$="":K$=INKEY$:WEND: IF K$<>"L" AN 
D K$<>"S" AND K$<>CHR$(27) THEN 300 

310 IF K$="L" THEN GOSUB 340:GOTO 300 

320 IF K$="S" THEN GOSUB 350: GOTO: 300 

330 END 


to disk using the BSAVE 
command, you first initialize the 
array with the DIM statement and 
write something to the array. It 
doesn't matter which element in the . . 

array you write to, but you must write to one to set the array's actual address. You then need to 
calculate the size of the array in bytes. Each element of an integer array takes up 2 bytes, a 
single-precision array 4 bytes, and a double-precision array 8 bytes. 

_ Next, you need the absolute location in memory of the first element. You can easily find this 
address with the VARPTR function. When specifying the name of your array in the function, you 
must specify the first element of the array—or if the array is multi-dimensional, the first element of 
each subscript. For example, if you execute the statement ADDR=VARPTR(ARRAY(0)) then 
ADDR returns with the address of the first element in ARRAY. , : 

After the program stores information in an array, it's a simple matter to save it to disk. We 
demonstrate this with the program BSAVE DEMO. First, we display a screen of graphics and place 
a portion of the screen image (selected by the user) into the array with the GET statement. Next, 
we BSAVE the proper section of memory directly to disk (line 350). The parameters used in this 
command are the file name (GRDATA), the address of the array in memory (ADDR) and the number 
of bytes to be written to the disk (2800). : 

To read the image back into the computer from the disk, we use the BLOAD command (line 340). 
Before you try using this method, be sure to take certain precautions. The array receiving data 
from the disk must be of the same size and type (e.g., integer, single precision, etc.) as the array 
that was written to disk. Also, to ensure that you access the correct area of memory for your array, 
get its address just after you have accessed the array in a GET, PUT, or assignment statement 
(e.g., line 290). 


340 BLOAD "GRDATA",ADDR:PUT (159-INT(W/2),99-INT(H 
/2)), ARRAY, PSET: RETURN 
350 BSAVE “GRDATA",ADDR,2800:LINE (159-INT(W/2) ,99 
SINT CH 2 )) = (LT OS+INTCCW+1)/2), 99+INT CORE) 72) ) ,0., BE 
: RETURN : 
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CH NOTE 


Mini Memory Battery Replacement 


Good things never last forever, and so it is with the battery in 
the Tl Mini Memory cartridge. The cartridge (see Photo 1) is 
battery-powered so that it can retain information stored in it 
even when the power to the TI-99/4A console is turned off, or 
the cartridge is removed from the console. Unfortunately, the 
batteries are not rechargeable, and are not easy to change 
unless you know the proper procedure. To help get all that you 
can out of the Mini Memory cartridge, the following describes 

what you need to change the battery, and how you can 
PHOTO 1 complete the task with very few tools. 


eocenenncannanns 


ae ee) 
mannnenn 
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Tools Required: 
-Light soldering iron (15 to 35 Watts) 
-Copper solder-removing braid or other solder-removal tool 
-Phillips-head screwdriver 
-Smaill flat-head screwdriver 
-Needle-nose pliers (suggested) 


poncearaveratsnarenosecaterencere 


felebatebaitatebeateheat 


Parts Required: 
-Lithium 3-volt battery (Radio Shack # CR2032) 
-Light wire (18 to 24 gauge, solid) approximately 3” 
-Rosin-core solder 


PHOTO 2 


If you have trouble locating the battery listed above, any 
3-volt lithium battery around the same size will work. Make 
sure you have rosin-core solder. Do not use plumber's 
solder—acid core—because the acid will damage the circuitry. 
All of the tools and parts listed above can be purchased at any 
local Radio Shack store, or in most hardware stores. 


PHOTO 3. Step 1. Open the Cartridge 
Before you can open the cartridge, you must first remove the 
screw on the bottom side of the cartridge using a Phillips-head 
screwdriver (see Photo 2). To open the cartridge, release the 
two plastic hooks by inserting a flat-head screwdriver into the 
slots shown in Photo 3. (You do not need to tear the paper 
label on the cartridge. This label will act as a hinge once the 
cartridge is opened.) With light pressure, pry the screwdriver 
toward the center of the module, lightly pulling the two halves 
apart at the same time. Repeat this in both slots until you are 
able to open the cartridge as seen in Photo 4. As you open the 
PHOTO 4 cartridge, keep your thumb or finger on the dust plate at the 
mouth of the cartridge. Try not to let this plate or the spring 
holding it come out, or reassembly will be more difficult. 


echatatoncreeetatctan 


Step 2. Removing the Circuit Board 

Holding the cartridge in one hand with a thumb on the dust 
plate, pick up the circuit board at the back edge (see Photo 4). 
Lift up on the back edge until the hole in the center of the board 
clears the mounting post. Take care not to let the spring under 
the board get loose (see Photo 5). 


saretebtatebty 
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Step 3. Removing the Old Battery 

Remove the old battery by de-soldering the two posts that 
hold the battery from the back side. Use solder-removal braid 
or a Similar tool to remove the molten solder as you melt it (see 
Photo 6). Take care not to leave the soldering iron on the 
surface of the board for too long, or you may damage the 
etchings. After clearing the solder away from the posts that 
hold the battery, pull the posts through the holes in the board. 
You may have to get hold of a post with a pair of needle-nose 
pliers and pull it out as you melt the last bit of solder holding 
the post down. Do not grab the posts or the battery with your PHOTO 6 
fingers until they have cooled down—the soldering iron makes | 
them very hot. 


Step 4. Installing the New Battery 

Cut two pieces of wire—one approximately 1-inch long, and 
another approximately 3/4 of an inch long. Strip about 1/8 of an 
inch of insulation from the ends of both wires. Solder one end 
of the 1-inch wire to the positive side of the battery (see Photo 
7). Next solder one end of the 3/4-inch wire to the negative 
side of the battery. Bend the longer (1-inch) wire over the edge 
of the battery and insert it into the hole in the circuit board 
closest to the edge such that only the bare wire is sticking out 
the other side. The battery should have the positive side 
facing up when you're looking at the component side of the 
circuit board (see Photo 8). Bend the wire over that sticks out 
of the bottom side of the board so it lies flat (needle-nose pliers 
help here). Solder this lead to the under side of the circuit 
board (see Photo 9). The solder connection should be smooth 
and shiny. A bad solder connection may result in intermittent 
power from the battery and should be re-done. Stick the short 
wire (3/4-inch) through the other battery lead hole in the circuit PHOTO 8 
board and solder it in place using the same technique as 
described above. 


PHOTO 7 


Step 5. Installing the Circuit Board 
Install the circuit board following the instructions used to 
remove it (Step 2) in reverse order. 


Step 6. Closing the Cartridge 
Close the cartridge, aligning the dust plate and circuit board 
as you close the two halves. Snap the mouth of the cartridge 
closed (see Photo 10). Install the Phillips-head screw, and the PHOTO 9 
cartridge is ready. : 


WARNING: Please do not attempt this procedure unless 

you are proficient at soldering electronic components. 

Improper techniques could result in damage to the circuit 

board or components. Home Computing Journal, its 

publisher, and the author assume no liability for eS 
unsuccessful project completion or damage to any of your 
equipment. These instructions are offered as is and 

readers should proceed at their own risk. 


PHOTO 10 
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About the HCJ Director and CodeWorks 

The directories and instructions on these two pages should 
help you locate any program file on your HCJ diskette and 
give you the necessary information to successfully RUN any 
program. Each system has its own specially designed HCJ 
Director program that allows menu-driven access to all the 
HCJ programs in this Volume. If you see a version on: your 
disk written in compiled BASIC, it means that the BASIC code 


Apple Il Family 


Procedures For Loading Apple Il Computers 
1. Place the HCJ diskette in your disk drive. If you have more than one disk 
drive, make sure you insert the diskette in drive 1. 
2. Turn on the Apple computer. The HCJ Startup menu will appear, asking if 
you wish to use the HCJ Director program, go to Applesoft BASIC, or format 
a ProDOS diskette. (This utility is included for those who wish to use 
separate data disks with the HCJ programs.) 
3. Select HCJ Director from the menu. 
4. A list of the programs included on the HCJ diskette will appear on the 
screen. To RUN one of these programs, enter the number corresponding 
to the program that you wish to RUN and press [RETURN]. 
6. Make sure that the HCJ diskette is still in drive number 1 and press 
[RETURN] again. The selected program will LOAD and RUN for you. You 
may press [ESC] before pressing [RETURN] for the second time, if you 
change your mind. 


Program Name File Name Language 
1. Startup STARTUP* Applesoft BASIC 
2. CodeWorks CODEWORK Applesoft BASIC 
3. Digital Dumpster DIGDUMP Applesoft BASIC 
4. Designer Genes GENES Applesoft BASIC 
GENES.OBJ** Compiled BASIC 
GENES.DRV Applesoft BASIC 
5. Apple Tech Note RAMRX Applesoft BASIC 
(Memory Test) 
6. Enhanced Apple II Sound SOUNDDEMO Applesoft BASIC 
(Sound Routine Demo) : 
rie WordWeave WEAVE Applesoft BASIC 


*ProDOS, apa ProDOS Utilities, Copyright © 1983-86 Apple Computer, Inc. 
*“ Portions of the Compiled version are Copyrighted Microsoft Corp., 
1981,1982,1983 Note: Because the Microsoft Compiler does not allow 
ProDOS disk access, the compiled version does not support disk options. 
Note: The Apple Il Family HCJ diskette contains portions of the Apple 

_ ProDOS operating system that allow the diskette to be used by itself. It is not 

necessary for you to have oy other operating system to use the HCJ 
diskette. 


Atari 800, 800XL, 130XE 


Procedures For Loading Atari Computers 
1. Place your DOS 2.5 systems disk in the disk drive 1. 
2. Turn on the Atari computer. 
3. After READY appears in the upper-left corner of the computer screen, 
insert the HCJ diskette into drive 1. 
4. Type LOAD "D:HCJDIR" and press [RETURN]. After the loading 
procedure is complete and the cursor returns, type RUN and press 
[RETURN]. 
5. A list of the programs included on the HCJ diskette will appear on the 
screen. To RUN one of these programs, enter the number corresponding 
to the program that you wish to RUN and press [RETURN]. 
6. The selected program will LOAD and RUN for you. 


Program Name File Name Language 
1. CodeWorks CODEWORK Atari BASIC 
2. Atari Tech Note DATAGEN Atari BASIC 
(DATA Generator) , 3 
3. Digital Dumpster DIGDUMP Atari BASIC 
4. Designer Genes GENES Atari BASIC 
5. HCJ Director HCJDIR Atari BASIC 
6. Atari Plotting: RIPPLES Atari BASIC 
Painless Perspective (Ripples) 
7. WordWeave WEAVE Atari BASIC 
Note: Because some programs reconfigure your computer's memory, it is 
recommended that you press the [RESET] key on your computer if you 
experience problems running a new program. 
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has been processed through a compiler program which greatly 
enhances the speed of the slower program operations. 

Each disk also contains a CodeWorks program that describes 
which sections of code accomplish specific tasks in the 
program. Full operating instructions are included in each 
CodeWorks program explaining how to either view the 
information on screen, or dump it to your system's printer. 


HCJ 


Commodore 64 


Procedures For Loading The C-64 
1. Turn on your monitor, printer, disk drive, and any other peripheral 
connected to your computer. 
2. Turn on the C-64 computer. 
3. Place the HCJ diskette into the Commodore disk drive known as device 
number 8. 
4. Type LOAD "HCJDIR",8 and press [RETURN]. After the loading 
procedure is complete and the cursor returns, type RUN and press 
[RETURN]. 
5. A list of the programs included on the HC diskette will appear on the 
screen. To RUN one of these programs, enter the number corresponding 
to the program that you wish to RUN and press [RETURN]. 
6. Make sure that the HCJ diskette is still in drive number 8 and press 
[RETURN] again. The selected program will LOAD and RUN for you. You 
may press < before pressing [RETURN] for the second time, if you 
change your mind. 


Program Name File Name Language 

1. CodeWorks CODEWORK C-64 BASIC 

2. Digital Dumpster DIGDUMP C-64 BASIC 

3. Designer Genes GENES C-64 BASIC 
GENES.B64* Compiled BASIC 

4. HCJ Director HCJDIR C-64 BASIC 

5. C-64 BASID Synthesizer SYNTH C-64 BASIC 
BASID C-64 BASIC 

6. WordWeave WEAVE C-64 BASIC 


*Program compiled using the Abacus Software BASIC 64 compiler. 

Note: Because some programs reconfigure your computer's memory, it is 
recommended that you restart your computer if you experience problems 
running a new program. 


TI-99/4A 


Procedures for Loading The TI-99/4A with Extended BASIC 
1. Ensure the Peripheral Box is properly connected to the console. Turn on 
the Peripheral Box. 
2. Place the Extended Basic, module securely in the machine. 
3. Turn on the TI-99/4A computer. 
4. Insert the HCJ diskette into drive 1. 
5. Strike any key to bring up the first menu, then select Extended BASIC, 
and The HCJ Director program will automatically RUN. 
6. Select the number of the program you wish to use, then pleas [ENTER] 
and the program will load and RUN automatically. 


Procedures for Loading The TI- 99/44 with TI BASIC 
1. Ensure the Peripheral Box is properly connected to the Ronse, Turn on 
the Peripheral Box. 
2. Turn on the TI-99/4A computer and insert the HCJ diskette i in drive 1. 
3. Strike any key to bring up the first menu, then select BASIC. 
4. To load the BASIC program you wish to use, type OLD DSK1.file name 
where file name is the file name of the program. For example, if you wish to 
use Digital Dumpster type OLD DSK1.DIGDUMP and press [ENTER]. 


Program Name File Name Language 
1. Codeworks CODEWORK BASIC or 
Extended BASIC 
2. Digital Dumpster DIGDUMP BASIC or. 
Extended BASIC 
DIGDUMPX Extended BASIC 
3. Designer Genes GENES BASIC or: 
Extended BASIC 
GENESX* Extended BASIC 
4. HCJ Director LOAD Extended BASIC 
5. Tl Flashlight FLASHLIGHT Extended BASIC 
6. WordWeave WEAVE Extended BASIC 
*Requires 32K Memory expansion. ere | 


IBM PC, PCjr, and Tandy 1000 


Procedures for using the The IBM PC, PCjr, or Tandy 1000 
To make use of the HCJ Director menu program on your HCJ diskette you 
need to backup your disk. Use the following procedures to produce an 
autoboot backup of your HCJ diskette : 


If you have a dual-drive system you may start with step 1, 
otherwise read this paragraph first: 


For those of you with a single disk drive, you may still use the commands as 
listed below, though you will need to pay very close attention to the prompts 
on the screen instructing you to swap disks from time to time. The computer 
will tell you to place the appropriate disk in drive B:. What it means, however, 


is to remove the disk from drive A: and insert the disk which would have 


gone in drive B:. Using a single drive may mean having to swap disks quite a 


few times. For those who are patient though, the rewards are worth the 
added work. If you have further questions consult your DOS manual on the 
FORMAT and COPY procedures for a single-drive system. 

1. Place your DOS master disk (hereafter refered to as the DOS disk) in 
drive A: and turn on the power to your system. 

2. Enter the command FORMAT B: /S /V 

3. The computer will ask you to place a blank disk into drive B: to be 
formatted. Ensure that the blank is in the drive and then press J. After 
formatting, you will be asked for a volume name. Enter HCUOURNALn 


where nis the Volume number. Then, you will be asked if you want to format 


another. Respond No to this prompt which returns you back to DOS. 
4. If you wish to use acolor monitor enter the command 
COPY A:MODE.COM B: 
5. Enter the command COPY A:BASIC*.* B: 
lf you have an IBM compatible whose BASIC does not start with the word 
| “BASIC,” then make adjustments in the command above for your version. 
6. After all files beginning with the letters BASIC have been copied to the 
new disk in drive B:, remove the DOS disk from drive A: 
7. Place the HCJ diskette in drive A: 
_ 8. Enter the command COPY A:*.* B: 
9. After the last file has been copied, remove both disks from the system. 


Label the new disk as HCJ ON DISK BACKUP Volume n, where n is the 


Volume number. Place the original HCJ diskette in a safe place. 

10. The new disk you have created can now be used to boot your system 
(start from a power off condition) and will automatically bring up a menu of 
programs from which you may select. 


You may also use the HCJ diskette without backing it up if you: 
1. Start from DOS 2.1 or later . 

2. If you wish to run a program with a BAT, COM, or EXE extension, simply 
type the file name from the DOS A> prompt. 

3. If you wish to run a BASIC program, you must first enter the appropriate 
version of BASIC, then LOAD and RUN the program. 

Note: If you have an IBM PC and the program requires a Color Monitor, 
you must enable the monitor using the appropriate DOS MODE command 
before running the program. 


Program Name File Name — Language 
1. IBM Tech Note ARRAY .BAS** BASICA 
(Array Demo) 
2.CodeWorks CODEWORK.COM*** Turbo Pascal 
3. Digital Dumpster DIGDUMP.BAS** BASICA 
4. Designer Genes GENES.BAS* | BASICA 
Ra ae GENES.EXE*** | Compiled BASIC 

5.HCJ Director HCJDIR.BAT**** ASCII Text 

ae MNU.EXE**** Compiled BASIC 
6. IBM Menu Magic MENU.BAS** BASICA 
7. WordWeave WEAVE.BAS* BASICA 


“Program requires: DOS 2.1 & either Cartridge BASIC on PCjr or BASICA on 


PC, or GW BASIC on Tandy 1000. 

*“Program requires: DOS 2.1 & either Cartridge BASIC on PCjr or BASICA, 
Color/Graphics Monitor Adapter, and Color Monitor on PC, or GW BASIC 
on Tandy 1000. | 

““*Program requires: DOS 2.1 or later. 


****This program makes use of other BATch and TeXT files on the HCJ disk 


as well. 


Coming Next: 
Coverage of the 
Apple Macintosh 


Coming Soon: 
Coverage of the 
Atari ST 
and 
Commodore Amiga 
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(1536-1727), dummy placeholders (ATASCII 


128=INVERSE CONTROL ,) are inserted to fill 


gaps in the keyboard code sequence, and 
dummy ATASCII values (148=INVERSE 
CONTROL T) are given where no ATASCII 
equivalent of a keyboard code exists (e.g., 
CONTROL CAPS/LOWR, CONTROL 
RETURN, CONTROL with the numbers 0-9). 

Preston Clark 

Spencer, WV 


Your method works fine, Preston, but there 
is a shorter solution—one that identifies the 
machine the program is running on and 
accesses the proper ROM locations 
accordingly. To get the program running on 
any Atari, including the older 800 models, 
replace the existing lines listed below: 


230 GOSUB 1680 : GOSUB 1690 : 
GOSUB 1700:GOSUB 1710 
KEYTAB=64337:IF PEEK(65537)=255 
THEN KEYTAB=65278 

470 KEY=0 : A=PEEK(53789): 
B=PEEK (53775) : IF B=251 OR B=243 
THEN KEY=PEEK (A+KEYTAB) 

IF KEY=27 THEN GOSUB 1450: 

GOTO 350 

590 KEY=PEEK(A+KEYTAB) 

IF KEY=27 THEN GOSUB 1450 : 
GOTO 350 
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Looking for Al 
Dear Sir: < 

| have been reading about some new 
artificial intelligence software such as Turbo 
Prolog and Expert-Ease for the IBM PC, and 
XPER for the Commodore 64. It's an exciting 


prospect to run Al software on a micro, but just 


how good are these products? Also, although | 
have a read about this new field,! still don't 
really understand how it differs from the 
software | already run on my computer. The 
general articles on this subject seem too 
general; and the detailed explanations too 
detailed. Do you have any recommendations 
for getting some meaningful hands-on 
experience in artificial intelligence without 
getting burned in the wallet? 

Ed Wynne 

St. Louis, MO 


Ed, your questions are indeed timely. 
Although research and development in artificial 
intelligence (Al) has been going on for years, 
only recently has this technology been 
brought to microcomputers. Needless to say, 
the many software products that are now 
available range in actual usefulness from the 
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truly exciting Turbo Prolog from Borland 
International to products that are simply 
taking advantage of this latest computer 
"buzz-word.” In upcoming issues of the 
Journal we will try to help you separate the 
wheat from the chaff. 

Incidently, the way Al programs are 
created and operate is very different from 
other types of software you run on your 
personal computer—including the "intelligent" 
software we publish in this Journal. Virtually all 
non-Al programs are structured around 
algorithmic programming techniques (and 
suitable implementation languages), and are 
based on what we call "propositional logic.” For 
number crunching applications and general 
text manipulations this approach is quite 
adequate. But when a problem cannot be 
reduced to a simple matter of finding the 
correct formula or the right algorithm, Al 
techniques and languages—structured 
around “heuristic” rules of thumb, and based 
on "predicate logic"—come into play. It is in 
these cases that we need to build an “expert 
system" to evaluate many different possible 
answers. Ideally, the system can then "learn" 
from new observations and facts fed into it. 

We have already implemented a 
development project to bring the exciting 
concepts of Al to our readers. Watch for it in 
an upcoming Volume. HCJ 
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